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This Programming professional deserves a 


lot more from his personal computer. 


He’s earned it. As a seasoned professional, 
he’s learned to master some of the world’s 
most advanced programming tools. Tools 
specially designed to meet the everyday 
emands of programming experts. 


But as the owner of a personal com- 
puter, he’s come to expect less. Less 
pe cage Less sophistication. And less 

exibility. 


Why should programming a 
personal computer be any different? 


Prior to the announcement of micro/ 
SPF™ development software, experienced 
programmers felt programming a personal 
computer was a lot like playing with a toy. 
You couldn't take it seriously. 


But today, there’s micro/SPF.™ a solution 
to elementary program editing tools now 
offered with most micro-computers. 


With micro/SPF™ you get the same 
procedures and commands experienced 
programmers are accustomed to using at 
work. By mimicking features found in 


standard SPF software, micro/SPF™ 
provides all the sophisticated utilities pro- 
eramming professionals expect. 


Programming experts can take 
advantage of skills they've spent 
years perfecting. 


Now, for the first time, mainframe soft- 
ware is available for personal computers. 
SPF screens are fully reproduced in logical 
sequence and each screen is formatte 
identical to those found in the SPF system. 


In addition, micro/SPF™ comes equipped 
with the same primary and line commands, 


tutorial messages and program editor 
(with program function keys) experienced 
programmers are used to. 


Programming professionals who ve 
spent years perfecting the art of writin 
sophisticated code deserve to work wit 
state-of-the-art tools, not toys. Find out 
how micro/SPF™ can help you do work- 
compatible programming on your 
personal computer today! 
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FORTH for Z-80°®, 8086, 68000, and IBM’ PC 


FORTH Application Development Systems include interpreter/compiler with virtual memory management and 
multi-tasking, assembler, full screen editor, decompiler, utilities, and 130+ page manual. Standard random ac- 
cess files used for screen storage, extensions provided for access to all operating system functions. 
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FORTH + Systems are 32 bit implementations that allow creation of programs as large as 1 megabyte. This is 
the only language that supports the entire memory space of the 8086/88 directly for programs and data! 
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Nautilus Cross Compiler allows you to expand or modify the FORTH nucleus, recompile on a host computer for 
a different target computer, generate headerless code, and generate ROMable code with initialized variables. 
Supports forward referencing to any word or label. Produces load map, list of unresolved symbols, and ex- 
ecutable image in RAM or disk file. No license fee for applications created with the Cross-Compiler. Prere- 
quisite: one of the application development systems above for your host computer. 


Hosts: 2-80 (CP/M 2.2 or MP/M II), 8086/88 (CP/M-86 or MS-DOS), IBM PC (PC-DOS or CP/M-86), 68000 (CP/M-68k) 
Targets: 8080, Z-80, 8086/88, 6502, LSI-11, 68000, 1802, Z-8 
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FORTH application development systems require 48 kbytes RAM and 1 disk drive, Cross-Compilers require 64 kbytes. All software distributed on eight inch, single den- 
sity, soft sectored diskettes except PC/FORTH on 5% inch single sided double density diskettes. Prices include shipping by UPS or first class mail within USA and 
Canada. California residents add appropriate sales tax. Purchase orders accepted at our discretion. 


Laboratory Microsystems, Inc. 
4147 Beethoven Street 
Los Angeles, CA 90066 
(213) 306-7412 


Z-80 is a registered trademark of Zilog, Inc. Augusta is a trademark of Computer Linguistics 
CPIM is a registered trademark of Digital Research, Inc. dBASE II is a trademark of Ashton-Tate 
IBM is a registered trademark of International Business Machines Corp. PC/FORTH and PC/GEN are trademarks of Laboratory Microsystems Inc. 
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Like the craftsman’s seal on a fine 
work of art, Whitesmiths’ Authori- 
zation Seal is more than just a 
means of identification. It repre- 
sents the pride in workmanship, 
sense of tradition, and commit- 
ment to value on which we have 
always prided ourselves. 

At Whitesmiths, we’ve estab- 
lished a tradition of producing 
some of the industry's most inno- 
vative and dependable software. 
Our C and Pascal compilers 
and cross compilers run in over 
30 environments on DEC, Intel, 
Motorola and Zilog computers. 
Idris, our highly portable 


a lepeaeices 


operating system, is compatible 
with UNIX and runs on all those 
vendors’ machines too. And our 
full line of Software A La Carte 
items—from assemblers to special 
purpose tools— permits our cus- 
tomers to pick and choose what 
they need to tailor our products 
for unusual requirements. 

The Authorization Seal is one 
more way we can take pride in 
our products. Once affixed to the 
machinery on which 
the software is to run, 
the Authorization 
Seal verifies, at a glance, 
ownership, product 








code, and the software 
copyright —all of which reduce 
order turnaround time and 
upfront expenses for both 
OEMs and end-users. No con- 
tracts to sign, no documents to 
read. Just good software, plain 
and simple. 

The Whitesmiths, Ltd. Authori- 
zation Seal. It’s one more way that 
we re committed to becoming a 
software tradition in your time. 


Contact Whitesmiths, Ltd., 
97 Lowell Road, Concord, 
MA 01742, (617) 369-8499 
TLX 951708 sorrwarE CNCM. 


Whitesmiths, Ltd. 


UNIX is a trademark of Bell Laboratories; IDRIS is a trademark of Whitesmiths, Ltd. 
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14 Fast Divisibility Algorithms 
by H. T. Gordon 


Author Gordon shows how to use the information provided by the digits of large 
numbers to quickly determine some things about divisibility. 


18 B-Tree ISAM Concepts 
by Chris Deppe and Alan Bartholomew 


How do you retrieve random information quickly from a large disk file? The au- 
thors discuss the principles and techniques of an elegant method called a B-Tree. 
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All you dBASE IT hotshots 


are about to get what you 


deserve. 


You've written all those slick 
dBASE II programs. 

Business and personal 
programs. Scientific and 
educational applications. 
Packages for just about 
every conceivable informa- 
tion handling need. 

And everybody who 
sees them loves them because 
they’re so powerful, friendly and easy to use. 

But that’s just not good enough. 

Uh-uh. 

Because now you can get the gold and the 
glory that you really deserve. 


Here’s how. 


We've just released our dBASE I 
RunTime™ application development module. 
And it can turn you into an instant 

software publisher. 

The RunTime module condenses and 
encodes your source files, protecting your 
special insights and techniques, so you can 
sell your code without giving the show away. 

RunTime also protects your margins 
and improves your price position in the 
marketplace. If your client has dBASE II, all 
he needs is your encoded application. If not, 
all you need to install your application is the 
much less expensive RunTime module. 


We'll tell the world. 


With your license for the dBASE II 
RunTime module, we provide labels that 
identify your program as a dBASE II applica- 


tion, and you get the benefit of all the 
dBASE II marketing efforts. 





We'll also provide additional “how to” 
information to get you off and running as a 
software publisher sooner. 

And we'll make your products part of 
our Marketing Referral Service. Besides put- 
ting you on our referral hotline, we'll publish 
your program descriptions and contact 
information in dBASE II Applied, a directory 
now in computer stores world-wide. 


Go for it. 


But we can't do any of this until we 
hear from you. 

For details, write RunTime Applications 
Development, Ashton-Iate, 10150 West 
Jefferson Boulevard, Culver City, CA 90230. 

Or better yet, just call (213) dBASE’ 
204-5570. And get what you 
deserve today. 






ASHTON ‘TATE 


©Ashton- Tate 1983. 
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N~ you can run programs such 
as WordStar, dBASE II, 


SuperCalc, MailMerge and vir- 
tually thousands of other CP/M- 
based programs on your TRS-80 
Model Ill. 

CP/M 2.2 is the industry stan- 
dard operating system that gives 
you access right now to over 
2,000 off-the-shelf business pro- 
grams. 

Our plug-in Shuffleboard Ill 
comes with 16K of RAM, giving 
your Model Ill the power of full 
64K CP/M 2.2 without inter- 
ference of the ROM or video 
memory. In fact, the Shuffleboard 
will appear transparent in the 
TRS-80 mode and will not inter- 
fere with any DOS operation. 


Unfortunately, there is no stan- 
dardized CP/M format for 514” 
diskettes. But we have developed 
a way to READ/WRITE and RUN 
standard programs under the 
following single-sided formats: 
Osborne 1 S/D, Xerox 820 S/D, 
IBM PC* D/D for CP/M 86 only, 
Superbrain D/D, Kapro II D/D, HP 


125 D/D and TeleVideo D/D. 
*Will Read and Write Only. 


It's so simple. The Shuffleboard 
[Il plugs into two existing sockets 
inside your Model Ill. There are no 
permanent modifications, no cut 
traces and no soldering. You'll be 
up and running 
in minutes. 











WordStar & MailMerge are trademarks of MicroPro. 
SuperCalc is a trademark of SORCIM. 


Put 64K CP/M 22 in your 
TRS-80 Model III and tap into 
2,000 business programs. 


: Features 
dual intensity screen, programmable 
cursor control for block, underline & 
blink rate, on-board bell with audible 
keyclick, battery-operated real time 
calendar/clock, full ASCII character 
set plus 256 special character 
graphics, dual RS-232 outputs and 
composite video output. 

Now 
you can access 54%" and 8” floppy 
disk drives in any combination up to 
4 drives of S/D density, S/D sided. 
Tap into a wealth of CP/M software 
which comes on 8” IBM 3740 format 
or Pickles & Trout CP/M for the Model 
I] 


Additional CP/M soft- 
ware programs are available. Call or 
write for details. 
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dBASE Il is a trademark of Ashton-Tate. 
CP/M is a trademark of Digital Research. 
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The Shuffleboard Ill comes fully 
burned-in and tested complete 
with 64K CP/M 2.2 and MBASIC 
80 interpreter, plus software 
manuals and a first class user’s 
manual — with a 1-year limited 
warranty and 15-day no-risk free 
trial — for only $299. 


Once you see what the Shuffle- 
board can do for your Model Ill 
you Il want one at once. If your 
dealer does not yet stock the 
Shuffleboard have him give us a 
call. Or send check, money order, 
VISA or MASTERCARD number 
(sorry, no COD’s) plus $5 shipping 
per board ($17 outside the USA & 
Canada)* directly to the address 
below. Cal. residents please add 
sales tax. Credit card purchases 
can be phoned in directly and 
we ll ship from stock. 


*Air mail shipments to Canada & all other 
countries. 


14666 Doolittle Drive San Leandro, CA 94577 


(415) 483-1008 


TRS-80 is a trademark of Tandy Corporation. 
IBM is a trademark of IBM Corporation. 
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256Kbyte 
SemiDisk’>—-— 


For more than a year, we've been making the 
ales} @-(ehe-larerste melt) @-uilelrelCol@-)-lit-lel(M Cel m@ull eigen 
computers. The one that’s taken the “waiting” 
role) mel merelisreleiiiare mm (oh Maui cmarchU-m-le]til-muile] 
news that'll set the world on fire: A price cut! 
The NEW 256Kbyte board is only $995. And the 

_ §12Kbyte SemiDisks for the S-100 and TRS-80 
Model Ii are $1495. (1Mbyte unit is $2350.) So, 
what are you waiting for? 


The SemiDisk is the ORIGINAL single-board 
- microcomputer disk emulator. It has a greater 
BS) (ol g-[e e density than any other: 1 Mbyte per 
. board! And we’ve been shipping them for over 















oducts are true innovations, based | 
technology Vale Me)ce\(-lame(-t-t(e late 
mt need wot custom components. 


ir! We didn’t do this with ‘me too’ engineer- | 


emiDisk Systems, Inc. 
s Box GG _ Beaverton, OR 97075 


“call 503-646-5510 for CBBS*/NW, a SemiDisk-equipped computer bulletin board. 
Se — trademark of SemiDisk ita inc. Copyright © 1983 SemiDisk Systems, Inc. 


WAS JUST SHATTERED! 


Snr 
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storage. But they fall far short as online storage. 
If you are using high level languages, spelling 
checkers, word processors, databases and other 
disk-intensive software, you know the price you 
Elacm oy: \Vlare Mm tics (olel@molceel rea (haiamcmeleliare meek iy 
the drain. The SemiDisk disk emulator will save 
time and increase your productivity. 


Even better, Release 5.0 of the SemiDisk CP/M-80 
Tay eclifclivelamerel sane: [ecm ecelal¢-llacmet-liilbe) olele] mer 1 a) 

FLUL Coluir-li(om elelal (clam ellicciam (oM-> dtr Mar-leelu clio) 
required; it’s all in the software. Up to 8 Mbytes of 
buffer space! It’s a better solution than a $350 
64Kbyte printer buffer that wastes space on your 
desk. Send documents of almost any length to the 
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aTcmorelialelei ccm liluic-relr-l Cham COmuclitiare 


SemiDisk ge 
{it’s the disk the others sssted cia Comore) oh 





(503) 642-3100 





DR. DOBB’S CLINIC 


by D. E. Cortesi, Resident Intern 








A Yodel from Yap 


John Thayer Jensen, of Yap, TT, 
writes us as follows. “I have the kiss of 
death: I bought an IMSAI VDP-80 and 
that put IMSAI out of business. So the 
first thing is, if there are any IMSAI V DP- 
80 owners out there who will write me, I 
can share a partially commented disassem- 
bly of IMDOS’s BDOS, similar disassem- 
blies of the DIO and VIO ROMs, and can 
sometimes answer questions about IMDOS 
and IMSAI hardware. 

‘IT also bought a now-obsolete multi- 
tasking operating system called FAMOS 
from MVT Microcomputing. They never 
sold any more (as far as I can tell) and 
while they make a token effort at support, 
they can’t be expected to do much — and 
the thing doesn’t work. If there are any 
FAMOS users reading this, I have next to 
nothing to offer, but an infinite number 
of questions to ask someone! 

“It would be wonderful to hear from 
some fellow VDP-80 and/or FAMOS 
users. I can’t check into CBBSs, can’t go 
to meetings, can’t phone anyone. We have 
a U.S. zipcode, proving that we are not at 
the end of the world (although on a clear 
day, you can see it from here), and domes- 
tic first-class mail will reach us by air.”’ 

If you would like to correspond with 
Jensen in his lonely outpost (Yap is an 
island in the mid-south Pacific), you can 
write to him at P.O. Box 358, Yap, TT 
96943. 


PC Still Backward 


In March we expressed our puzzle- 
ment at the results of printing an ASCII 
backspace from BASIC in the IBM PC. 
The result of 


PRINT CHR$(8) 
is precisely nothing, while the result of 
PRINT “wotizzit:” ,CHR$(8) 


is (as we described it) a small reverse- 
video diamond which we couldn’t find in 
any manual. 

Several readers responded. Randolph 
Fritz of Mahwah, New Jersey and Bob 
Taylor of Buffalo, New York wrote to 
point out that the complete character set 
is shown on pages C-12 and C-13 of the 
IBM Technical Reference, and it includes 
the one we couldn’t find. Robert Pirko of 
New York added that “‘The funny charac- 
ter you see is intended to be a reverse- 
video circle. For the graphics adapter in 
the 40-character mode, it looks roughly 
like a circle. In the 80-character mode, 


the width is cut in half and the circle does 
look more like a diamond.”’ 

David Kellogg, also of New York, 
called to say the same, and added that if 
you print character 226, the Technical 
Reference says you should get a lower- 
case gamma, but you actually get an 
upper case gamma. 


OK. The whole situation is very con- 
fusing, but we think we understand it 
now. Follow us through this. (1) IBM, for 
whatever reason, implemented a graphic 
symbol for every byte value from 001 to 
254 inclusive, leaving only 000, 032, and 
255 as blank or null displays. The bytes 
from 032 to 127 have their ASCII sym- 
bols; the others produce unique special 
characters. (2) The PC’s ROM implements 
a simple dumb-terminal function (WRITE- 
TTY) which takes ASCII bytes and dis- 
plays them. It implements the control 
characters as a teletype would, including 
carriage return (CR), line feed (LF), and 
backspace (BSP). However, WRITE-TTY 
does not implement cursor addressing (as 
any modern terminal should, no matter 
how dumb). 


But (3) the BASIC interpreter needs 
direct cursor addressing for its screen 
editing, so it calls upon the more primi- 
tive routines in ROM. These routines sup- 
ply cursor positioning and screen output 
(SET-CPOS and WRITE-AC-CURRENT). 
Since they are not trying to emulate a 
terminal, they treat ASCII control char- 
acters as data. A control character like 
BSP, sent via WRITE-AC-CURRENT, will 
go into the screen display as a symbol; it 
will not have its standard ASCII effect. 


Then (4) the BASIC interpreter also 
used the primitive ROM functions to im- 
plement the PRINT statement; thus any 
character written via PRINT will go 
straight to the screen as a symbol. 


Except that (5) the interpreter wants 
to supply some modicum of standard 
control characters, so it intercepts BEL 
(and toots the horn), CR (and returns the 
cursor), TAB (and tabs by 8), LF (and 
moves the cursor down), and FF (and 
clears .the screen). In effect, it does the 
job of WRITE-TTY, but in the interpreter 
code. It should intercept BSP as well; it 
apparently does so when the cursor is at 
the left margin, but not otherwise. So a 
backspace at the left margin acts like a 
backspace (doing nothing), but once 
away from the margin, it gets through 
and becomes a symbol. This appears to be 
a bug in BASIC. 


Finally (6) the interpreter wants 
users to be able to move the cursor freely, 
so not only does it implement the LO- 
CATE verb, it also intercepts the ASCII 
control characters US, RS, FS, and GS 
and treats them as commands to move 
the cursor in the four cardinal directions. 

The net: a BASIC programmer has 
two ways to position the cursor (neither 
compatible with any other BASIC), but 
lacks both a standard backspace and the 
nonstandard symbols of bytes 028-031. 
Meanwhile, the user of another high-level 
language can use the backspace (since 
most of these use WRITE-TTY ) but can- 
not move the cursor. This is how your 
major corporations do whatcha call your 
systems analysis and design stuff, see? 


SuperKludge 


Nick Hammond, now of Torrens, 
Australia, has sent us a lovely kludge for 
CP/M 2.2. Here’s what he says. 

*“A couple of months ago, I was 
asked to modify an 8-inch, single-sided, 
single-density CP/M system to allow a 
larger-than-standard directory. It proved 
to be a fairly simple mod and I thought 
you might like to share it with your 
readers. 

*““A standard 8-inch, single-density 
CP/M diskette has a file directory that 
will hold 64 entries. Since each 16K ex- 
tent of a file requires one entry, this may 
amount to less than 64 actual files. 
Given the maximum data storage of 240K 
odd, this is a reasonable number, but 
occasions will arise when we need more. 
The example that prompted this note was 
a need to fit a dBase II application with a 
large number of command files onto one 
disk, leaving the second free for data. 

‘Fortunately, CP/M 2.2 is both flexi- 
ble and well thought-out, and expanding 
the directory can be done relatively sim- 
ply. Two things must be done: generation 
of a diskette which will look okay to both 
the standard and modified systems, and 
insertion of a two-byte patch to modify 
the BIOS for the new directory size. 

“‘The standard directory on a single- 
density 8-inch disk occupies the first two 
1K blocks after the system tracks. The 
modified directory will occupy the first 
four, and we therefore need to reserve the 
third and fourth blocks. If this is not 
done, the directory could be overwritten 
when used with an unmodified BIOS, and 
would then appear full of garbage when 
used with a modified one. 
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“‘We can reserve the extra directory 
blocks by making the first file written to 
disk a dummy, full of ES bytes. To the 
standard system, this will appear as a nor- 
mal file; to the modified system, the E5 
pattern will look like two blocks of empty 
directory space. To ensure that the dummy 
file occupies the third and fourth blocks, 
it must be written under a standard sys- 
tem and it must be the first file on the 
diskette. If your SYSGEN procedure 
copies hidden files to the new disk, the 
dummy file must be written before you 
SYSGEN the disk. The following DDT 
session illustrates the procedure. 


A> ddt 

DDT VERS 2.2 

-f100,900,e5 fill 2K with ESh 
-g0 exit DDT 


A>save 8b:empty save dummy file 
A> stat b:empty $sys and hide it 


““CP/M gets its information on direc- 
tory size from the Disk Parameter Block 
(DPB), a data area contained in the BIOS. 
To enlarge the directory it is necessary to 
alter two bytes in the DPB. The first is 
DRM, a count one less than the number 
of directory entries. The second is 
ALLOCO, a bit-map of the disk blocks 
reserved for the directory. 

‘‘The DDT session that follows shows 
how to find the DPB and how to make a 


| sort : uniq 


Use-A-ToolKit $249 


10 


small command file, KLUDGE.COM, to 
alter it. The DPB that this procedure lo- 
cates is the one for the default drive. In 
most systems there is only one DPB for 
each disk format and the modification will 
affect all drives. If it doesn’t on yours, 
just repeat the exercise with a different 
drive logged in. 


A> ddt 

DDT VERS 2.2 

-al00 assemble a program 
0100 mvi c,lf to locate the DPB 
0102 call 5 

0105 rst 7 

0106. 

-g100 execute it 

*Q105 

-X HL has the address 
COZ1IMOE1I0 A=14 B=... H=FE1]14... 
-hfel4 e calculate its size 
FE22 FE06 

-dfel4 fe22 dump it to make sure 


FE14 1A 00 03 07 00 F2 00 3F 00 CO... 
FE20 00 02 00... 


-al100 

0100 mvi a,7f 
0102 sta felb 
0105 mvi a,f0 
0107 sta feld 
O10A ret 


assemble a program 

to patch the DPB 
..change DRM to 127 
.. reserve 4 blocks 
..in ALLOCO 


‘Carousel Tool does the 
ys se “itd well, 





Circle no. 9 on reader service card. 


CAROUSEL’ S SOFTWARE TOOLS FOR CP/M give you 
many more ways to use your computer effectively for 
documentation, programming and data house-keeping. 
Each Tool does only one thing—and does it well— 
making each Tool easier to use and remember. 


YOU BENEFIT from using standard tested programs 
and a UNIX-like control shell that pipelines data be- 
tween Tools, redirects I/O to different files and devices, 
and accepts scripts of Tool commands to perform com- 
plex tasks. Now you can have 60 Tools working together 
to do the right thing well. 


ORDER TODAY: a Carousel Use-a-ToolKit is $249; a 
Carousel Build-a-ToolKit is $395; a manual is $40. 


CALL (415) 528-1300 or write 


Carousel MicroTools, Inc. 


609 KEARNEY STREET, EL CERRITO, CALIFORNIA 94530 
formerly known as Unicorn Systems 


CP/M is a trademark of Digital Research. UNIX is a trademark of Ameri- 
can Bell Laboratories: Carousel Tools, Carousel! Use-a-ToolKit and 
Carouse! Build-a-TooiKit are trademarks of Carousel MicroTools, Inc. 


O10B . 
-20 
A> save 1 b:kludge.com 


*‘After running KLUDGE, the direc- 
tory will have space for 128 entries, and 
should stay that way until the next cold 
boot, which overwrites the BIOS. Some 
manufacturers such as Osborne have 
chosen, for reasons best known to them- 
selves, to rewrite the BIOS at warm boot 
also, contrary to CP/M specifications. On 
these systems, KLUDGE will have to be 
run after each boot.” [A BIOS that sup- 
ports multiple formats may rebuild the 
DPB when a disk is selected after a warm 
start — DEC. | 


A Stack of Boots 


Aubrey Hutchison has checked in 
with a warning for users of the California 
Computer Systems BIOS supplied with 
the 2422 disk controller board. “‘After 
running for 18 months,” he writes, “I 
found a problem that was bothering me 
from time to time. At times when using 
PIP, the machine would appear to hang 
up; at other times it would seem to PIP 
forever; but most of the time PIP worked 
as expected. 

‘The problem turned out to be related 
to the CCS boot code and boot ROM. 
The stack pointer is set by the ROM to be 
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] VISISCHEDULE —_| SUPERCALC [} VISICALC () WORDSTAR (| D.B. MASTER |) MULTI PLAN | VISIFILE ©) dBASE II (_) 


RENT SOFTWARE 
BEFORE YOU BUY? 


from our 


SOFTWARE 
RENTAL LIBRARY 


You can now RENT the most popular software available for just 
20-25% * of Manufacturers’ Retail Price 
© Eliminate the risk—rent first! 





e 100% of rental fee applies toward purchase 
e All purchases are 20% Off of Manufacturer’s 
Suggested List 
e Rentals are for 7-days (plus 3 days grace for return 
shipping) 
¢ No Membership Fees 
Now currently available for: 


|| HdVWud :Sdd || TWNOISS3IOUd YSLIMAANAANDS | | +08 YJOVWNVW J1ld || LD9duNad VIVA |) YALIMASHIOA 


Apple IBM, PC Standard CP/M 8” 

Easle TRS-80 II Xerox 820 

Northstar Osborne Heath/Zenith 89 
Franklin 


REMEMBER, THESE ARE NOT DEMOS, BUT ORIGINAL 
UNRESTRICTED SOFTWARE PROGRAMS 


(complete with manuals in original manufacturers’ packages) 
To Immediately Order, or for more information: 


UNITED COMPUTER CORP Toll Free CALL 1-800 992-7777 


. In California CALL 1-800 992-8888 
software Rental Lidrary In LA. County CALL 1-213 823-4400 


Culver City, California ose = 
*Plus postage and handling. [EXPRESS | 
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the top of RAM — 56Kb in my case, since 
at boot time the top 8Kb of RAM is 
banked out. When the ROM enters the 
cold-boot routine loaded from disk, it 
leaves the stack in the same place. The 
cold-boot routine doesn’t change it. The 
CCS BIOS did not set the stack pointer 
either [it sets iton a warm boot but nota 
cold one — DEC] so until the CP/M CCP 
took over, the stack was not set at some 
other location. Since the BIOS used the 
stack for one or two (maybe three) levels, 
the stack was having a good time playing 
around in the BDOS. The damage must 
have been small since I used it in this con- 
dition for 18 months. 


MONITORS: 


*“My method of correcting the prob- 
lem was to fix the location of the stack 
at the entry to the cold-boot routine. I 
found space to insert 


1xi h,0100h 
sphl 


at the start of the cold-boot code without 
changing the original code. The same thing 
could be done in the BIOS [at label 
BOOT ).’ 


What do you suppose the BDOS has 
in its highest two or three words that 
overwriting them would cause trouble, 
but only rarely? 


ZENITH * ZVM—121 — 12in. 15MHz GREEN Phos. $94.00 
J.C.S.# KG—12NU— 12in.18MHz. GREEN Phos. $114.00 


J.C.S.4# KG—12NUY — 12in.18MHz. AMBER Phos. $124.00 
BMC# BM— AU9191U — 13in. coLOR $324.00 


80 COLUMN CARDS: 


EL COM *tsp 8024- $14400 / WESPER #wizarp 80 - $14490 


DISK DRIVES: 


RANA‘ELITE 1” — w/cont. card $395.00 without $295.00 


ALPS“SsLIM LINE’ w/cont.card $345.00 without $275.00 
BMC~HALF HIGH’— w/cont.card $345.00 without $275.00 





PROGRAMMER: The PROMPRO-7 EPROM Programmer is designed to program the 


LOGICAL DEV. 


WABASH 


Wabash Distributor 


SS/DD 


| DISKETTES 


DS/DD 3190 


CONCORD 


COMPUTER 
PRODUCTS 


SS/SD 





standard single voltage 1K, 2K, 4K, 8K bytes EPROMS/EEPROMS. 


$4.9900 


o 4 


—_—_——_—_— 


3" 


$9700 


* 10 pak 
100/1.70ea 


2890 


10 pak 
100/2.60ea 


3500 


10 pak 
100/3.30ea 


2910 'B E. La Palma 

Anaheim, Ca. 92806 
(714) send $1.00 
632-6790 _ catalog 


$1800 


* 10 pak 
100/1.50ea 


2690 


10 pak 
100/2.30ea 


“10 pak 
100/2.90ea 
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The Intern’s 2.2 BIOS 


In the last couple of columns we 
talked about the fancy BIOS we built for 
a CP/M 2.2 system with banked storage. 
We have CP/M 3 running now, and in 
building its BIOS we had to pretty much 
rip up the new 2.2 BIOS and lay it down 
again. It seems a shame to let sucha pretty 
thing die so soon, but we really have no 
more use for it. And who else would, 
unless they had exactly our hardware 
configuration? Or unless they had a maso- 
chistic desire to read approximately 95 
pages of heavily commented Z80 assem- 
bly code... .. 


If you have such a masochistic desire, 
you can have a copy of our 2.2 BIOS 
for your bedside reading. Send your own 
8-inch, single-density diskette and a 
sturdy self-addressed, postage-paid disk- 
ette mailer, and we'll duplicate the source 
files onto it. Address the package to ““The 
Intern’s 2.2 BIOS” c/o PCC, P.O. Box E, 
Menlo Park, CA 94025. Note that you 
should not expect to actually use this 
code. If you have any idea for doing so, 
be aware that it needs RMAC and LINK; 
it comes with minimal documentation; 
and it carries absolutely no warranty or 
support of any kind. 


CP/M Plus — Sector Buffering 


The CP/M 3 (or CP/M Plus) BDOS 
buffers disk sectors in storage in an at- 
tempt to speed up processing. The attempt 
may be successful in some cases (we 
haven’t tried any direct-access I/O yet), 
but the BDOS uses its sector buffers in a 
way that is far from optimal for sequential 
I/O. This is demonstrated by some experi- 
ments we made recently. 

A CP/M 3 BIOS for a banked system 
supplies the address of two words in stor- 
age in the Disk Parameter Header that it 
returns from a SELDSK call. These are 
the anchors of two chains of Buffer Con- 
trol Blocks (BCBs). Each BCB describes a 
buffer that the BDOS may use to save a 
disk sector (a physical sector, not a 128- 
byte logical sector). There are separate 
chains for directory and data sectors. 
According to the CP/M 3 System Guide, 
page 8, ‘‘In a banked environment, CP/M 
3 maintains a cache of deblocking buffers 
and directory records using a Least 
Recently Used (LRU) buffering scheme.”’ 
And on page 46, “‘In general, you can 
enhance the performance of CP/M 3 by 
allocating more BCBs.”’ 

Always anxious to improve perfor- 
mance, we gave CP/M 3 a grand total of 
71 sector buffers, each one a kilobyte, 
spread over our four-bank system. Seventy- 
one kilobytes of data space (plus another 
8K of directory buffers) is not exactly a 
SemiDisk, but it’s a lot more buffers than 


(Continued on page 89) 





re 


Dr. Dobb’s Journal, Number 80, June 1983 











How to make 
dBase Il work magic. 
l’s a snap 











with 
Autocode: 


Finally, the first 
practical applica- 
tion of artificial intelli- 
gence In personal computer 
software. 

Autocode 4 is a powerful program 
generator for dBASE Il. No prior knowledge 
of programming required. 


IBM is a registered trade mark of International Business Machines, Inc. 


@ Automatic programs in cBASE II code with 
interactive screens 
@ No prior knowledge of CBASE II required 
@ CP/M & MS DOS operating systems 
UU OC ODEs I e@ Handy pocket size manual 
e Average learning time 


only 4 hours 


STEMMOS LTD. 


666 Howard Street, San Francisco, CA 94105 


Just send the following to address above today. 


@ Your diskette format & hardware @ Yourname & complete address Credit card buyers may substitute 
@ How many Autocodes you want @ A check or money order. a Pa) Sec Hun eP One Sxpiraion 


date for the check. Or call us toll free 





















calculated fields 
@ Automatic multiple reports 


ONLY $200. 


at $200 each* and save the trip to the mail box. 
"in CA add 6% sales tox ORDER TOLL FREE 800-227-1617 (Ext. 417) 
IN CA CALL 800-772-3545 (Ext. 417} 
U.S. Address: 666 Howard St., San Francisco CA 94105 U.K. Address: 344 Kensington High Street, London W14 
Tel: (415) 777-3800 Tel: 01 602 6242 
OBASE II™ Ashton Tate Dealer inquiries invited. Autocode 1™ Stemmos Ltd. 
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t is well known that the lowest digit of 
an integer, if not 1, 3, 7, or 9, suffices 
to establish divisibility by 2, 5, or 10. 
Algorithms for divisibility by other small 
integers (such as 3, 7, 9, or 11) are not 
common knowledge. They require infor- 
mation from all the digits of the number, 
and are too complex to be part of ele- 
mentary arithmetic but too trivial for the 
mathematical elite. Even the ‘‘obviously 
divisible’’ integers contain useful informa- 
tion in the next-to-last digit. E.g., num- 
bers ending in 5 are divisible by 25 if the 
preceding digit is 2 or 7, while numbers 
ending in O are divisible by 25 if the pre- 
ceding digit is 0 or 5. Numbers ending in 
2 or 6 are divisible by 4 if the preceding 
digit is odd — if it is even, the number has 
only a single factor of 2; the opposite is 
true of numbers ending in 0, 4, or 8. 

The algorithm for divisibility by 3 or 
9 is relatively simple. It requires informa- 
tion from all the digits, but is indepen- 
dent of the order of the digits. It calcu- 
lates the “reduced digit-sum” by adding 
all the digits; whenever this becomes 10 
or more, 1 is added to the low digit and 
the high digit is discarded so that the 
sum is always a number from 1 to 9. If 
the final reduced sum is 9, the number is 
divisible by 9. If it is 3 or 6, the number 
has a single factor of 3. E.g., the number 
123456789 has a reduced sum of 9 and 
so is divisible by 9. This is true of all the 
possible permutations of these digits, and 
also true for 12345678 and all its permu- 
tations. However, 1234567 has a reduced 
sum of 1 and so cannot be divided by 3, 
nor can any of its permutations. The pres- 
ence of zeroes within the numerical se- 
quence does not affect the truth of the 
algorithm; e.g., 45, 405, 4005 all are 
multiples of 9, and so of 45. 

The algorithm for divisibility by 11 is 
somewhat more complex, since it depends 
on the order of the digits (only a fraction 
of the possible permutations being multi- 
ples of 11). It requires the calculation of 
two digit-sums. The “‘high’’ sum is that of 
the first, third, fifth, etc. digits; the “‘low”’ 
sum is that of the second, fourth, sixth, 
etc. digits. Within each of these sets, how- 
ever, the order of the digits does not 
affect the truth of the algorithm since this 
requires only that the difference between 








H. T. Gordon, 


College of Natural Re- 
sources, University of California, Berke- 


ley 94720. 


the two sums be a multiple of 11, or 0. 
The difference will always be 0 if each 
sum is reduced by 11, though it is simpler 
to reduce only the difference, in one step, 
if it is not 0. An example is the number 
12435687 with both high and low digit- 
sums equal to 18, and so divisible by 11. 
If one adds the two sums, the value 36 
reduces to 9, so the number is divisible 
by 99. Which set is “high”? does not mat- 
ter; e.g., 21346578 is also divisible by 99, 
and of course also by 2. Though more 
complex, this algorithm can test divisibili- 
ty by 3, 9, or 11 in one operation. For 
gigantic numbers, the digit-sums can be 
reduced by 99 since this is a multiple of 
both 9 and 11 — if a sum reaches 100 
it reduces to 1, etc. 


These algorithms are valid for num- 
ber bases other than decimal, although 
this alters the factoring integers. In octal, 
successive multiples of the highest digit 
(7) are 16, 25, 34, 43, etc., so that num- 
bers of any size will yield a total reduced 
sum of 7, while successive multiples of its 
base (8) + 1 (= 9) are 11, 22, 33, etc. In 
hexadecimal (base 16), the total reduced 
sum of numbers factorable by its highest 
digit (F, = 15 decimal) must always be 
F (e.g., 1E, 2D, 3C, etc.), while the 
‘“‘elevenish’’ series (11, 22, 33, etc.) has 
all multiples of decimal 17. 


As in the decimal ‘“‘base minus 1” 
algorithm, in which reduction by 9 re- 
veals multiples-of-3 when the reduced 
sum is 3 or 6, so in hexadecimal does a 
reduced sum of 3, 6, 9, or 12 reveal divisi- 
bility by 3 (but not 5), while a reduced 
sum of 5 or A (decimal 10) reveals divisi- 
bility by 5 (but not 3). Only in decimal 
do multiples of 5 always have 0 or 5 as 
the lowest digit. The general rule (at least 
for bases that are even numbers) is that 
numbers divisible by the digit that is half 
the base always end in 0 or that digit. 

Divisibility by 7 can now be seen to 
require a general ‘“‘base minus 3”’ algo- 
rithm, that in octal would recognize divis- 
ibility by 5 and in hexadecimal divisibility 
by 13. I have only studied the algorithm 
for decimal notation. It is even more 
complex than divisibility by 11, requiring 
not only calculation of a similar high and 
low pair of digit-sums, but positional 
“‘weighting’’ of each digit. The order of 
the digits in each set is significant. Rela- 
tively few permutations within each set 
retain divisibility by 7, since only digits 
with the same weighting factor can be 
interchanged. Weighting involves multi- 
plication by 1 (i.e., no change) for the 


first, fourth, seventh, etc. digit (reading 
the number from left to right), multipli- 
cation by 2 for the second, fifth, eighth, 
etc. digit, and multiplication by 4 for the 
third, sixth, ninth, etc. digit. However, 
digits can be reduced by 7, to a pseudo- 
heptal notation; i.e., 7 becomes 0, 8 be- 
comes 1, and 9 becomes 2. Also, the prod- 
uct of a digit by its weighting factor can be 
reduced by 7; e.g., if the digit is 6 and its 
factor is 4, the product (24 = 3 - 7+ 3) 
can be replaced by 3. Since such repeti- 
tious calculation would slow the algo- 
rithm down, the operation of replacing 
each digit by its weighted and reduced 
digit can be done by the following look- 
up table: 


Decimal Digit to be “‘Replaced”’ 


Order 1. 2-3. 4° 5 6 7. & 9 
1 eee ee ye 2 Be 
2 Bees hs <P 32 & OP as 
3 Od oes ee BS Oa 





For example, the algorithm alters the 
number 421589637 to 44452 1660, which 
has 16 for both its high and low digit- 
sums. The original number is therefore 
divisible by 7 since this requires that the 
difference be either 0 (as in this case) or 
also a multiple of 7. Since this number 
also happens to be divisible by 9, it is di- 
visible by 63. Another example is 10101, 
which alters to 10402 with a high digit- 
sum of 7 and a low of 0, revealing divisi- 
bility by 7 and (since the total unaltered 
digit-sum is 3) by 21. 


All these divisibility algorithms in- 
volve no actual division. They only deter- 
mine whether division by the small prime 
being tested is possible, and can do this 
relatively quickly even for gigantic num- 
bers by reducing them to much smaller 
numbers that retain the same divisibility. 
A high proportion (56.6%) of very large 
random numbers ending in 1, 3, 7, or 9 
will be divisible by 3, 7, or 11 and so can 
be proved to be non-prime. Algorithms 
for divisibility by higher small primes (13, 
17, 19, etc.) could surely be devised, but 
would ‘“‘sieve out” ever-decreasing frac- 
tions of non-primes at an ever-increasing 
cost in complexity. However, one never 
knows when exotic algorithms may prove 
useful, if only as clues to far more power- 
ful ones. 


One human-interest element is that I 
did a casual search for these algorithms in 
various math books, in the certainty that 
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don't want to trash your present CPU board...” 
—Ray Duncan, DR. DOBB’S JOURNAL 


“... the result (from the Hudson 8087 Support 
Board) is well worthwhile.” — Jerry Pournelle, BYTE 
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processor's instruction stream. The result — 
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....1S easy to install. 

....will not void your CompuPro warranty. 

....comes with full documentation. 
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FORTRAN-87: $200. 
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they were known, but failed to find them. 
Rediscovering the 3-6-9 and the 11 algo- 
rithms — by simple inspection of the digit 
sequence of small multiples — was child’s 
play. Subsequently I found these algo- 
rithms on pages 25-27 of the VNR Con- 
cise Encyclopedia of Mathematics, re- 
cently published (or reprinted) by Van 
Nostrand Reinhold. This is the work of 
East German mathematicians and presents 
a few uses in detection of errors in com- 
plex calculations. It omits the divisibility- 
by-7 algorithm, though I’m certain this 
was also discovered (probably more than 
once) long ago. I found it less obvious 
than the simpler algorithms. Its compu- 
tational drudgery would, in the pre- 
computer era, have discouraged its use. 
Even the extension to other number bases 
has probably been done before, though 
like other things the elite see as trivial, it 
has been forgotten! The VNR Encyclo- 
pedia reference pointed out something I 
had ignored, that what I’ve called the 
“‘reduced sum” is not useless even when 
non-divisibility is found, since it is then 
the remainder that would be obtained 
if the. division were actually done. Per- 
haps the divisibility-by-3 algorithm could 
be used to test random-number genera- 
tors, since 1/3 of a fairly large sample of 
large numbers ought to be divisible by 3, 
1/3 should have a remainder of 1, and 
1/3 a remainder of 2. DB, 
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ow do you retrieve random informa- 
tion quickly from a large disk file? 
Every programmer who has written 
software for business has had to deal with 
this problem. Fortunately, computer sci- 
entists have refined an elegant and simple 
method for retrieving information called 
a B-Tree. The objective of this article is 
to explain the principles and techniques 
involved in a B-Tree. 


Why ISAM? 

With current hardware technology, 
about the only way to quickly retrieve 
information out of a disk file is using an 
indexing method. There are many meth- 
ods of indexing data. ISAM, Indexed 
Sequential Access Method, has become 
very popular for use in many business 
systems. It allows the information to be 
retrieved randomly by data value (indexed) 
and in sorted order (sequential) using just 
one index file. This dual ability is what 
distinguishes ISAM from other methods, 
such as Hashing. While there are many 
ways to implement an ISAM index, the 
B-Tree is generally accepted as being the 
current “‘state of the art.” 


General ISAM Principles 


An ISAM file is a file composed of 
individual pieces of information called 
“‘keys.”’ A key is an ASCII string repre- 
senting some value in a data record. The 
index is arranged in such a way that keys 
can be retrieved randomly and sequen- 
tially, along with their associated data 
record numbers. There are a number of 
different schemes designed to serve this 
purpose, a B-Tree being only one. To bet- 
ter appreciate the B-Tree, we will look at 
an older method, called the binary tree. 

A tree structure is called such because 
if all the search paths are drawn out, they 
resemble an inverted tree as shown in 
Figure 1 (at right). The search starts at 
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the root and progresses down the tree un- 
til it possibly reaches the bottom (called 
leaves, or leaf level). Note also in Figure 1 
that from any point in the tree, there are 
two paths to the next lower level, hence 
the term “binary tree.”’ In a simple binary 
tree, each key is stored in an individual 
record, or node. Each node also has two 
pointers to other nodes. These pointers 
are what make up the search paths through 
a tree. 

A search through a binary tree is, on 
a basic level, a simple procedure. To find 
the key “G,” it is first compared to the 
key in the root node. If “G” matches, 
then the search is successful. Otherwise, a 
decision must be made, that is, where to 
go next. If “‘G” is smaller than the root 
node, then the path to the left is taken. If 
*“G”’ is larger than the root, then the path 
to the right is taken. The path is followed 
and the new node is read. ““G” is then 
compared to the key in this node as be- 
fore, and the appropriate action is taken. 
The search continues until either “‘G’’ is 
found, or a leaf node is unsuccessfully 
evaluated. 

As long as the nodes are kept in 
memory, the binary search is an efficient 
method. Once the nodes are stored on the 
disk, however, the performance quickly 
degrades because of the large number of 
disk accesses required. 

Other problems can also arise when 
keys are inserted. This can have the effect 
of making the tree unbalanced — that is, 
some search paths being longer than 
others. This requires that the search and 
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insertion algorithms be aware of this 
possibility, and subsequently these proce- 
dures become much more complicated. 


The Basic B-Tree 


The problems with the binary tree in 
large disk-based filing systems gave an in- 
centive for researchers to look for some- 
thing better. In the late 1960s a number 
of people independently designed such a 
method called a B-Tree. Apparently the 
reason for the name, B-Tree, seems to be 
the fact that R. Bayer, then at Boeing 
Scientific Research Labs, was one of the 
pioneers of the method (‘“‘Bayer-Tree’’).! 


Figure 2 (page 19) shows an example 
of the B-Tree format. The most obvious 
difference between a binary tree and a 
B-Tree is that from any one node there 
can be more than two paths to the next 
node. This has the effect of allowing 
many more keys in each node of a B-Tree 
than with a binary tree. For instance, a 
binary tree with ten-byte keys, holding 
one million keys, could take as many as 
twenty node searches to find any one 
key. A B-Tree with the same conditions 
(assuming ten keys per node) would at 
the most take five node searches. In the 
case where node searches correspond to 
disk accesses, the search time difference 
is obviously dramatic. 


Searching a B-Tree 


To find a key in a B-Tree, the first 
step is to look at the root node. In the 
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Figure 1. A Binary Tree 
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example shown by Figure 2, there are a 
maximum of three keys in each node. To 
decide what to do, a process called scan- 
ning is used. This involves sequentially 
looking at each key in the node (note 
they are stored in ASCII sequence) and 
stopping when either a matching key is 
found (in this case, the search is success- 
ful, and it ends) or a higher key is found. 
If no match is found, then a decision 
must be made. 

Take, for example, a search for the 
key “L.’’ By scanning the root node in 
Figure 2, we find that there is no match- 
ing key. We therefore must follow a pointer 
to the next lower level. The pointer to 
follow is the one which sits where the key 
“TI” would be if it existed in the node. 
In this case we would follow the middle 
pointer to the next lower node. This 
node is then read and the same procedure 
is followed. This continues until either 
the key is found, or a leaf node is unsuc- 
cessfully scanned. 


Inserting into a B-Tree 


Note that since we must determine 
where the key would sit if it existed in 
the node, we now have the needed infor- 
mation to insert the key. Insertion into a 
B-Tree uses the search already described. 
Then the key is simply inserted into the 
node where it should be. Note that keys 
are always inserted into leaf nodes (an 
insertion depends not on finding the key, 
but on finding a place for it). Since an un- 
successful search always ends at the leaf 
level, then all keys will be inserted there. 

If the node into which the key is to 
be inserted is full, then a split occurs. The 
original node and the new key are divided 
up into two new nodes. Since there is 
now a new node, a pointer to the new 
node must be inserted into the level 
above. Usually the middle key of the two 


new nodes is brought up to the next level 
to be used as a separator. If the node 
above is also full, then it too might be 
split. This can continue up to the root. If 
a split of the root node occurs, a new 
root node is created so that the tree 
becomes one level higher. 

A B-Tree by nature is always a bal- 
anced tree. Since all node expansions are 
done on the same level, the tree never 
gets unbalanced. An insertion will never 
increase the search path to one leaf node 
and not the others. 

Deletion of a key is simply finding 
the key and taking it out of the node. Ifa 
key doesn’t reside in a leaf, then a new 
key must take its place to provide the 
same paths as the deleted key. This new 
key is found by getting the next key in 
sequence from the deleted key. 

As stated before, the search time in a 
B-Tree is much more efficient than in a 
similar binary tree when stored on disk. 
Sequential processing in a B-Tree is not 
so easy, however. Because the keys are 
distributed between all levels of the tree, 
keys must be retrieved by following the 
links up as well as down the tree, working 
from the left to right. This becomes 
awkward and slow. Try it by hand using 
Figure 2 and you will quickly see why. 

If the sequential processing of a 
B-Tree could be improved while retain- 
ing the random search efficiency and 
balanced nature, we would have a much 
better method. 


The B+Tree 


This brings us to one of the most 
important variants of the B-Tree called 
the B+Tree. Figure 3 (page 21) shows an 
example of the Bt+Tree format. In a 
B+Tree, all the keys are stored in leaf 
nodes. The upper levels simply provide 
pointers to the next lower level, and so 
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on until the leaf level is reached. In addi- 
tion, all the leaves are linked together. 
What we have, in effect, is a tree which 
provides a B-Tree type of path to the 
proper position in a sequential list of the 
keys. 


Since all the keys reside on the leaf 
level, sequential processing is now very 
easy as each key is linked together sequen- 
tially in the leaf nodes. This gives the 
B+Tree the desired additional characteris- 
tics of an ISAM while retaining the sim- 
plicity of a normal B-Tree. 


The B+Tree search uses the upper 
levels as a roadmap to the next level, and 
it is only until a leaf is reached that the 
key is actually looked for. Therefore, all 
searches use the same number of node 
reads. Although this guarantees that every 
search will be a ‘“‘worst case”’ of a normal 
B-Tree, we have seen that this worst case 
is very good under most circumstances. In 
addition, since all searches take approxi- 
mately the same amount of time, a high 
degree of consistency is achieved, which 
can have its benefits in a real-world 
situation. 


One nice benefit of the B+Tree 
structure is that since the upper levels are 
just pointers, a delete doesn’t have to 
worry about revising pointers (deletes 
only operate on leaves which have no 
pointers). 


Key searching and insertion methods 
are basically the same as in a normal 
B-Tree. The specific B+Tree we imple- 
mented uses a scheme which uses the high 
key from the left node to provide a sepa- 
rator (located in the index node above) 
between the left node and the right node. 
For example, in Figure 3, a search for the 
key ‘‘H”’ would produce the following. 
First, “‘H”’ is compared to the first key in 
the root node. Since “‘H” is less than “‘I”’ 
the search proceeds by reading the next 
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Figure 2. A B-Tree 
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lower node using the left-most pointer. 
Then ‘“‘H” is compared with the first key 
in the lower node. Since “HH” is not 
smaller than or equal to “C,’’ we must 
look at the next key. Again, since ‘‘H”’’ is 
not smaller than or equal to ‘“‘F,” we 
move on to the next key. The next key is 
“T.. “He” is: smaller than “I.” Since T’ 
represents the largest value stored in the 
node its left pointer points to, we follow 
that pointer. 

Splits also use this same high-key 
logic. At split.time, the high key is taken 
from the left node and it is then inserted 
(with a pointer to the right node of the 
split) in the index node above (see 
Figures 4a and 4b on page 21). 

One thing should be mentioned 
about the B+Tree. Since all the keys are 
in leaves, the nodes above represent an 
additional overhead not found in the 
basic B-Tree, which uses only key values 
in its tree. With the advent of inexpensive 
mass storage, though, a slight bit more 
storage space taken up is well worth the 
many benefits a B+Tree has to offer. 


B-Trees on Micros 


Many implementations of the B-Tree 
ISAM have been created. For example, 


FORT 


Ver. 2 For your APPLE II/II+ 


The complete professional software system, that meets 
ALL provisions of the FORTH—79 Standard (adopted Oct. 
1980). Compare the many advanced features of FORTH— 
79 with the FORTH you are now using, or plan to buy! 


FEATURES 


79-Standard system gives source portability. 
Professionally written tutorial & user manual 
Screen editor with user-definable controls. 
Macro-assembler with local labels. 
Virtual memory. 
Both 13 & 16-sector format. 
Multiple disk drives. 
Double-number Standard & String extensions. 
Upper/lower case keyboard input. 
LO-Res graphics. 
80 column display capability 
Z-80 CP/M Ver. 2.x & Northstar also available 
Affordable! 
Low cost enhancement option: 
Hi-Res turtle-graphics. 
Floating-point mathematics. 
Powerful package with own manual . 
50 functions in all, 
AM9511 compatible. 


FORTH—79 V.2 (requires 48K & 1 disk drive) 

ENHANCEMENT PACKAGE FOR V.2 
Floating point & Hi-Res turtle-graphics 

COMBINATION PACKAGE 

(CA res. add 6% tax: COD accepted) 


MicroMotion 
12077 Wilshire Blvd. # 506 
L.A., CA 90025 (213) 821-4340 


Specify APPLE. CP/M or Northstar 
Dealer inquiries invited. 


20 


200 PG. 


IBM uses a variant of the B-Tree for their 
mainframe computers called “VSAM.”’ 
More recently, the B-Tree ISAM tech- 
niques have been applied to microcom- 
puter applications. For example, dBase II 
uses a B-Tree method for indexing. Also, 
a number of companies have developed 
B-Tree subroutine products for micro- 
computers. These subroutines can be 
added to an application being developed. 
The application programmer uses call 
statements to the indexing functions built 
into the B-Tree subroutine without hav- 
ing to be concerned with all the details of 
how it works. 


B-Tree implementations have been 
produced to support a wide variety of 
languages. The authors have developed a 
version written in Forth. Other lan- 
guages supported by various B-Tree 
packages include BASIC, Pascal, C, 
COBOL, Fortran, and others. 


For the programmer interested in 
creating a B-Tree “from scratch,” the 
references for this article will be helpful. 
These references provide more details 
about B-Tree techniques and the many 
subtle variations possible in designing a 
B-Tree ISAM. 


The authors have implemented B-Tree 
ISAM technology in a Forth utility called 
INDEX+. Written for Laboratery Micro- 
systems Forth, the package includes fully 
documented source code and a manual 
which includes tutortials on B+Tree tech- 
nology and use of the utility. For more 
information, contact Laboratory Micro- 
systems. 


References 

1 Knuth, Donald E. The Art of Computer 
Programming, Volume 3, Sorting and 
Searching, Addison-Wesley Publishing 
Company, 1973. 


2Comer, Douglas, ‘“‘The Ubiquitous B- 
Tree,” Computing Surveys, Volume 1, 
No. 2, June 1979. 


DD 


(Figures 3 and 4 at right) 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 231 


FORT 


OURS OTHERS 


YES FEATURES 


YES 
Yikes 
hee 
YES 
¥ES 
NES 
¥-E5 
YES 
YES 
YES 
$99.95 


Virtual memory. 


file format. 


Affordable! 


Yes 
YES 


79-Standard system gives source portability. 
Professionally written tutorial & user manual. 
Screen editor with user-definable controls. 
Macro-assembler with local labels. 


BDOS, BIOS & cunsole control functions (CP/M). 
FORTH screen files use standard resident 


Double-number Standard & String extensions. 
Upper/lower case keyboard input. 
APPLE I1/II+ version also available. 


Version 2 For Z-80, CP/M (1.4 & 2.x), 
& NorthStar DOS Users 


The complete professional software system, that meets 
ALL provisions of the FORTH—79 Standard (adopted Oct. 
1980). Compare the many advanced features of FORTH— 
79 with the FORTH you are now using, or plan to buy! 


OURS OTHERS 


YES 
200 PG. 
YES 
¥ES 
¥ES 
YES 


YES 
YES 
YES 
YES 
$99.95 


Low cost enhancement options; 
Floating-point mathematics 
Tutorial reference manual 


YES 


90 functions (AM9511 compatible format) 


Hi-Res turtle-graphics (NoStar Adv. only) 


$ 99.95 FORTH-79 V.2 


¢ 49.95 Floating point 


$139.95 


COMBINATION PACKAGE (Base & Floating point) 
(advantage users add $49.95 for Hi-Res) 


YES 
$99.95 


$ 49.95 
$139.95 


ENHANCEMENT PACKAGE FOR vV.2: 


(CA. res. add 6% tax; COD & dealer inquiries welcome) 


MicroMotion 


12077 Wilshire Blvd. # 506 
L.A., CA 90025 (213) 821-4340 
specify APPLE, CP/M or Northstar 





Circle no. 52 on reader service card. 


Dealer inquiries invited. 





Dr. Dobb’s Journal, Number 80, June 1983 


IniGin fot }s | jw] 


Tae oho elecbe 4 thet ee 


Leaves 
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Figure 4. 


Figure 4(a): In order to insert the key “‘H,”’ the mode to receive it must be split. Figure 4(b): The tree after the split. 
Note that the new pointer in the upper node is the high key from the left node of the two new nodes. 
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f you should want to write CP/M utili- 
ties in C, you will probably need facil- 
ities to access the BDOS (Basic Disk 
Operating System) and/or the BIOS (Basic 
Input/Output System). Many C compilers 
for CP/M do not include such functions, 
and several of those which exist have 
severe limitations, in that they may not 
return proper values in all cases. 

The two functions bdos() and bios() 
described here will enable you to incor- 
porate direct BDOS and/or BIOS calls in 
programs written in C. Please note that 
programs that call bdos() or bios() will 
not be portable beyond CP/M and the 
8080 and Z80 series CPUs. 
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bdos() and bios() were originally 
written for the C/80 compiler from The 
Software Toolworks, but they will also 
compile/assemble/work with other com- 
pilers which push arguments on the stack 
in a non-reversed order before calling a 
function. Such C compilers include Small- 
C and most of its derivatives. bdos() and 
bios() have been tested to work properly 
with both The Software Toolworks C/80 
and The Code Works CW/C compiler. 


bdos ( ) 


The bdos() function sets machine 
register C to the function number speci- 
fied in funct, and the register pair DE to 
the value given in arg, and initiates a call 
to BDOS. The function number may be 
specified numerically or symbolically. 
No checking of the arguments is done. 

If funct is either RETVN (12), 
RETLV (24), GETAA (27), GETROV 
(29) or GETDPA (31), bdos() returns 
the value remaining in register pair HL on 
return from BDOS. For all other BDOS 
functions, bdos() returns the value in A, 
with sign extension. In this way, BDOS 
error (255 or FF (hex)) is returned as -1. 


bios ( ) 

The bios() function sets machine 
register pair BC to the value given in argl, 
and the register pair DE to the value given 
in arg2, and initiates the appropriate 
BIOS call by transferring control to the 
BIOS jump vector entry point specified in 
funct. This entry point may be specified 
numerically or symbolically. No checking 
of the arguments is done. 

If funct is either SELDSK (9) or 
SECTRAN (16), bios() returns the value 
remaining in the HL register after execu- 
tion of the BIOS call; otherwise it returns 
the value remaining in register A on re- 
turn from BIOS, with sign extension. 

Note that you must specify all three 
arguments in the bios() function. If you 
do not need the last one, you must set it 
to O or any other value. 


Installation 


You may type the source code in 
Listing 1 (page 24) into a file called 
CPMCALL.C. To use bdos() or bios() 
in a C source file, you must #include 
“CPMCALL.C” in that file. 

A simple example on how to use 
bdos() and bios() is shown in Listing 2 
(page 27). In this example, bdos() is used 
to get the current disk and bios() is used 
to print it on the console. You may use 


this example to test that you have in- 
stalled bdos() and bios() correctly on 
your system. When run, the program 
should write the uppercase character 
corresponding to the current (logged) 
disk drive on the console. Log onto dif- 
ferent drives and check that the program 
writes out the correct letter. 

Normally it is not advisable to do 
input/output via bios() or bdos() (as 
done with bios() in the example), if this 
can be done via other conventional C 
functions, such as putchar(). 

In order to be compatible with code 
for other compilers which do offer the 
same functions (e.g., SuperSoft’s C com- 
piler), you should refer symbolically to 
the bdos() and bios() function numbers 
(as shown in the listings) and never use 
numbers directly. The reason for this is 
that other compilers may not use the 
same numerical values for bios() function 
numbers as used in this version of bios(). 

You may want to delete (or “com- 
ment out’’) all the #define macros which 
will not be used, so that they will not 
occupy unnecessary space in the com- 
piler’s macro substitution table. 

After compilation, bdos() and bios() 
will assemble under CP/M’s ASM, The 
Software Toolworks’ AS, and most other 
8080 assemblers. Both functions may be 
assembled for nonstandard versions of 
CP/M by changing the CPBASE equate 
from 0 to the required value. 

If you should want to delete the 
bdos() function and make a separate 
function of bios() only, you need to 
include the CPBASE equate in front of 
the bios() assembly code. To use bdos() 
and bios(), refer to the CP/M Interface 
Guide and the CP/M Alteration Guide. 

A final warning: You should avoid 
direct CP/M _ calls whenever possible. 
Even though they enable you to do won- 
derful things in CP/M, they will limit the 
portability of your programs. 

The code may be copied, used, and 
distributed by anyone, commercially or 
otherwise, provided the contribution 
notice is included. 


DBD, 
(Listings begin on page 24) 
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c-window " Source Level Debucoes 


Designed for sophisti 
phisticated programme 
are : : r 
capability than inserting “printf” seeenisor wd 
ing 


£2 g eee 


th 
e C language. It helps you find the precise statement in a 


program where an 
error occurs and ob 
values are changed in a program serve when data 


The following is an excerpt from a typical c-window debugging session. The 
“>>” js the c-window prompt, and the underscored text is the operator input. 
The text on the right is a brief description of the operations taking place. 


c-window entry prompt showing function 
name and line number 
A breakpoint is set in function addline, 
line 58. 

s The “go” command starts execution. 
The breakpoint is reached. 

= The value of variable ‘‘ptr’’ is displayed. 


entry at main line 15 


>>bs addline, 58 


>r7Z 

break at addline line 58 

>>d pir 

bae 

>>d ptr = root The variable “ptr” is set to the value of the 

f02 variable “root”. 

>>d ++ptr The variable “otr’’ is incremented to the next 

f14 entry in the table. 

>>ds ptr—>symname Display the string at the member “symname””’ 

xyZZy in the structure pointed to by “ptr. 

>>cs 1 di Command set. The variable “‘i’’ will be 
displayed for each break in execution. 

Single step. 

= c-window displays the next line to be 
executed. 
c-window executes the automatic command, 
showing the value of “‘i’’ to be 11 hex. 

Test if ‘j” has the same value as ‘‘i”’. 
They are equal. 

a Set an expression break. Once execution 
begins, c-window will break execution on 
the second occurence of the expression 
§<j&&k==0" evaluating non-zero in the 
function “addline”. 


273 
step at addline line 59 


>>bx addline,2,i<j&& k==0- 


True source level single step 


Auto and extern 
: al variab ae 
variety of formats le display and modification in a 


a 


—at function name i 
and line numbe 
—sticky and non-sticky 


—at function whenev 
. h ever an expression evalu 
Multiple variable display as program is ae oo 





End the Dark Ages of 
Assembly Language... 










with SMAL/80 





Assembler ;: 

HL=M (PTR) ; LHLD PTR: 

. DE=9; LXI D,9° 

- HL=HL+DE; DAD D_-«- 
- IF A-L EQUAL CMP L 
THEN JING Dd 
A=A-14 SUI. .-14 

: ELSE ump. L2 = 

: A=L; CLeMOov: A, L*° 
° M(BC) =A; L2:STAX B 









SMAL/80 gives you the logical power, 
versatility and convenience of a com- 
piled, structured high level language 
like Pascal, Ada or C, plus the effi- 
ciency of assembly language. 


_J intuitive, processor-independent sym- 
bolic notation system to make your pro- 
grams easy to read, debug and maintain; 
|] programming constructs BEGIN... 
END, IF... THEN...ELSE, and LOOP... 
REPEAT, plus indentation, to graphical- 
ly display the structure of your algorithms; 
_|) extremely flexible macro and text 
pre-processor to create your own pro- 
gramming environment, 

|| compiler/linker to mix your input 
source code and relocatable object code, 
creating modular programs; 

| translator program to automatically 
upgrade your assembly code to SMAL/80; 
|] available on CP/M disks with manual 
for $150 plus $4 shipping. 


New! Z-80 version (runs on 8080’s): 
$175. 8080 version only: $150. Macro- 
processor only: $75. Available on- 
CP/M disks. Add $4 for shipping. 
Complete tutorial text: ‘‘Structured 
Microprocessor Programming’’ 
(Publ; Yourdon Press) $20 plus $2 
shipping. Send for your free button 
and literature or try the Ultimate 
Demo: SMAL/80 is Guaranteed! 


Chromod Associates, 
1030 Park Ave., Hoboken, N. J. 07030 
Telephone: (201) 653-7615 


Also available from 
WESTICO (203) 853-6880 
Circle no. 10 on reader service card. 
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BDOS and BIOS Calls for C 


Listing One (Text begins on page 22) 


PPP PPPPSPPFPSEFCSPPCFECCSSL PETS SCS SS SSS So SS sf 2 F & F | 


CP/M BDOS-— AND BIOS— 


Contributed by T. Bolstad, ELEKTROKONSULT AS 
3, N-3000 Drammen, 


Date: 


RXEKKKKEKAKKEREK ERK KAKA KEKE KAKA KEKE KKK KEE 


¥ 

: 4 

a 

# 

x Konnerudgaten. 
x 

x January 17, 
bf 

} § 


CALLS FOR C/80 


NORWAY . 


1983. 


/* DEFINITION OF BDOS FUNCTIONS 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#oefine 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


RESET 
CONSIN 
CONSOUT 
READIN 
PUNOUT 
LISTOUT 
DIRCON 
GETIOB 
SETIOB 
PRNTST 
READCER 
GETCST 
RETVN 
RESDSE. 
SELDISK 
OPENF 
CLOSEF 
SRCHFF 
SRCHFN 
DELF 
RDSEQ 
WRSE® 
MAEEF 
RENF 
RETLYV 
RETCD 
STDMA 
GETAA 
WPDSE 
GETROV 
SETFAT 


QO & Of Whe © 


i* 
/% 
i* 
iX 
/% 
/* 
i* 
/* 
/* 
/*% 
/* 
/% 
/* 
ie 
/* 
/X 
ix 
/* 
/% 
/% 
/* 
/* 
f% 
/* 
/* 
/* 
ie 
/* 
/*% 
/* 
/% 


SYSTEM RESET 
CONSOLE INPUT 
CONSOLE OUTPUT 
READER INPUT 

PUNCH OUTPUT 

LIST OUTPUT 

DIRECT CONSOLE I/0 
GET I/0 BYTE 

ae SA BYTE 

FRINT STRING 

READ CONSOLE BUFFER 
GET CONSOLE STATUS 
RETURN VERSION NUMBER 
RESET DISK SYSTEM 
SELECT DISK 

OPEN FILE 

CLOSE FILE 

SEARCH FOR FIRST 
SEARCH FOR NEXT 
DELETE: FILE 

READ SEQUENTIAL 
WRITE SEQUENTIAL 
MAKE FILE 

RENAME FILE 

RETURN LOGIN VECTOR 
RETURN CURRENT DISK 
SET DMA ADDRESS 


GET ALLOCATION ADDRESS 


WRITE PROTECT DISK 
GET READ/ONLY VECTOR 
SET FILE ATTRIBUTES 
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* 
x 
x 
x 
¥ 
x 
¥ 
x 
* 


/ 


x/ 


x / 
K/ 
K/ 
x/ 
x / 
x/ 
K/ 
x/ 
¥/ 
Kf 
x/ 
K/ 
x/ 
K/ 
x/ 
K/ 
K/ 
K/ 
x/ 
x/ 
x / 
K/ 
x/ 
x/ 
x/ 
K/ 
x/ 
x/ 
x/ 
x/ 
x/ 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


bdos(funct,arq) 


int 


GETDPA 
SGUC 
RDRAN 
WRRAN 
COMFS 
SETRRC 
RESDRV 
WRRZF 


ot 
oe 
a 
24 
ew 
3G 
as 
mt = 


funct,arqg; 


/*% CALL EXAMPLE: 
BOTH ARGUMENTS MUST BE SPECIFIED ! 


Values are returned IN HL. 


ix 
/X 
/% 
/% 
/% 
i* 
/* 
/X 


i% 


are returned as -l. 


t 


#acsm 
CPBASE 
CPNTRY 


EGU 
FQU 


POP 
POP 
POP 
PUSH 
PUSH 
PUSH 


PUSH 
CALL 
XCHG 
MOV 


RLC 
SBE 


MOV 
FOP 
MOV 


CFI 
JZ 
CFI 
JZ 
Gre 
JZ 
CEs 
JZ 
CPI 
JZ 
JMP 


oO 


ae SF A 


ve 


CPNTRY 


A.C 


hake 


RETHL1 


24 


RETHL1 


27 


RETHL1 


Fue 4 


RETHL1 


1 


RETHL1 


BDOSRET 


GET DISK PARAMETERS ADDRESS 


SET/GET USER CODE x/ 
READ RANDOM x/ 
WRITE RANDOM x/ 
COMPUTE -F ILS. SI Ze x / 
SET RANDOM RECORD x/ 
RESET DRIVE x/ 


WRITE RANDOM WITH ZERO FILL 


K/ 


x/ 


corresponds to bdos((BC),(DE)) / 


bdos (RETVN, 0) 


BDOS errors 
x/ 


sNORMAL O—-ORG’*ED CP/M 
CFPBASE+S ;BDOS ENTRY 


;GET RETURN ADDRESS 
sGET ARG CINFORMATION ADDRESS) 
;GET FUNCTION NO. 
sRESTORE STACK 


> SAVE 
- BDOS 
: SAVE 
» SAVE 
: SIGN 
GET 


‘en ae ‘aie 


s NOW 


FUNCTION NO. ON STACE 
CALL 

HL IN DE 

A IN L 

EXTENSION TQ H: 

SIGN BIT INTO CY 


IF CY=0, RESULT AFTER SBB 
IF CY=1, RESULT AFTER SBB 


A IS MOVED-TO HL WITH 


: GET FUNCTION NO IN BC 
;GET FUNCTION NO IN A 


IS ZERO 
IS -1 (IE ALL ONES) 
SIGN EXTENSION 


sWAS IT *RETURN VERSION NUMBER’ 7 


;RETURN LOGIN VECTOR ? 


:GET ALLOCATION ADDRESS ? 


;GET READ/ONLY VECTOR 7? 


;GET DISK PARAMETER ADDRESS? 


(Continued on next page) 


SK 
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BDOS and BIOS Calls for C 


Listing One (Listing continued, text begins on page 22) 


RETHLi: XCHG 


BDOSRET: RET sWITH RETURNED VALUE IN HL 
#endasm 

7 

/*% DEFINITION OF BIOS FUNCTIONS x/ 

#define BOOT O f/* COLD-BOOT x/ 
#define WEOOT 1 /*¥ WARM-—-BOOT ¥/ 
#define CONST Fi f/* CONSOLE STATUS */ 
#define CONIN mas #* CONSOLE INPUT K/ 
#define CONOUT 4 /*% CONSOLE OUTPUT K/ 
#define LIST og /% LIST DEVICE K/ 
#define PUNCH & /* PUNCH */ 
#define READER 7 /* READER Kf 
#define HOME 8 /* HOME DISK DRIVE HEAD ¥/ 
#define SELDSE ? /*%& SELECT DISK DRIVE K/ 
#define SETTRE 10 /* SET TRACK x / 
#define SETSEC iil /*& SET SECTOR K/ 
#define SETDMA 12 /* SET DMA ADDRESS x/ 
#define READ 13 #/* READ ONE SECTOR x / 
#define WRITE 14 #/*¥ WRITE ONE SECTOR K/ 
#define LISTST 15 *®¥ LIST STATUS x / 
#define SECTRAN 164 /* SECTOR TRANSLATION x / 


bios(funct,argi,arg2) /* corresponds to bios(function, (BC), (DE)) xfs 
int funct.,argql,arq2; 


/* CALL EXAMPLE: bios (SETTRE,35,0) 
ALL 3 ARGUMENTS MUST BE SPECIFIED, even though 
the last one is only used by SELDSK and SECTRAN. */ 


4 


#asm 
FOP D sRETURN ADDRESS 
FOP H sARGUMENT 2 
SHLD ARGZS sSAVE IT 
FOP B s;ARGUMENT 1 
XCHG ; GET RETURN ADDRESS INTO HL 
FOP D sFUNCTION NO. 
PUSH D sRESTORE SP 
FUSH B 
PUSH B 
FUSH H s;RESTORE RETURN ADDRESS 
FUSH D sSAVE FUNCTION NO. ON STACK 
iL xtI H,0 ;CALCULATE OFFSET ADDRESS FROM FUNCTION: 
DAD D s; GET FUNCTION NO. (OFFSET) IN HL 


nnn nnn nnn nn nn nn nn nn nn nnn nr SSS sss ss sss rss sess see 
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en 


DAD H s 2kKOFFSET 
DAD D s 3*XOFFSET 
XCHG ; SAVE OFFSET ADDRESS IN DE 
LHLD CPBASE+1 :GET FOINTER TO BIOS WBOOT ENTRY 
DCX H ; DECREMENT TO 
DCX H : FOINT TO 
DCX H : START OF BIOS ENTRY JUMF TABLE 
DAD D sADD OFFSET ‘(RESULT IN HL) 
XCHG *-GET RESULT IN DE 
LxI H,RETiI 
PUSH H sSAVE RETURN ADDRESS ON STACK 
LHLD ARG?S :GET ARGUMENT 2 
XCHG ;GET ARGUMENT 2 INTO DE 
: AND BIOS FUNCTION ENTRY ADDRESS INTO HL 
PCHL 3;GO TO BIOS 
RETI: XCHG sSAVE HL IN DE 
MOV LA 
RLC ;GET SIGN BIT INTO CY 
SBE a s;IF CY=0, RESULT AFTER SUBB IS ZERO 
:IF CY=1, RESULT AFTER SUBB IS -1 (IE ALL ONES) 
Mov H.A 
POF B 'sGET BIOS FUNCTION NO. IN BC 
Mov A.C 
CFI > ;SELECT DISK FUNCTION 7 
JZ RETHL? 
CPI 14 sSECTOR TRANSLATION FUNCTION 7? 
JZ RETHL2? 
JMP RETBIOS 
RETHL2?: XCHG sRETURN VALUE IN HL 
RETBIOQS: RET 
ARG?S: DS Ps 
#e2ndasm 
3 i End Listing One 





Listing Two 


#include "“cpmcall.c" 
maim) 


i 


bios (CONOUT, bdos (RETCD,0)+°A’* ,0O);3 4*% print current disk ¥*/ 


3 


End Listing Two 


ee LK 
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ACCESS S-100 SYSTEMS 
ACCESS I - 10 slot mainframe $2950 


ACCESS Il-7 slot w/ wood sides $2975 


ACCESS III - 4 slot mainframe $2850 


ACCESS IV - 5 slot rack-mount $2950 


| High quality, dependable, easily 
- expandable S-100 systems that feature: 
Easy Operation & Use—Ready to Run 
2 Mitsubishi 8’ DS-DD Disk Drives 
Teletek Systemaster SBC 
Free Software 

2 parallel & 2 serial ports 
Integrand Enclosures 
Freedom 100 Terminal 

l year warranty 


New Product Release: 


The ACCESS KERNEL 
$1475 
$1975 w/ Freedom 100 


Features: 


2 Double-sided double density 514'’ drives 

Systemaster Single board computer— 
including 2 serial & 2 parallel 1/0 ports 

Floppy disk controller that will also support 
2 external 8’’ double-sided, double: 
density drives 

64k of memory 

Switching power supply for efficiency 

CP/M™ 2.2 installed 

Extremely compact: 4%’’ x 614'' x 13” 

Will work with standard terminals 


™ CP/M is a trademark of Digital Research, Inc. 


TOTAL 
ACCESS 
SYSTEMS 


For the Best 


S-100 OPTIONS 


Ampex Hard Disk (replaces one 8’’ drive 
in Access Series) 
5M - $995 10M - $1150 
15M - $1295 22M - $1650 


S-100 Hard Disk Subsystems 


5M - $1450 10M - $1650 
15M - $1825 22M - $2150 


Includes S-100 controller & cabinet 


High Resolution S-100 Color Graphics 
Aurora 1000 - $1200 
512 x 480 Resolution High Speed 
Auto/CAD - $950 


Graphics/CAD Package $3600 
Includes: 
High Resolution RGB Monitor 
Aurora 1000 Board Set 
Amdek Color Plotter 
Business Graphics Package 


Teletek Cache Disk - $795 
256k - RAM disk 


MORROW MICRO 
DECISION 


MD2 - $1800 MD3 - $2350 


Both include Freedom 100 terminal 
and 7 software packages 


CORONA PC 


Desktop - $2675 Portable - $2550 
High Resolution (640 x 325) Graphics 
MS DOS M BASIC 

CP/M ™ 86 Graphics Basic 
Spread Sheet Word processor 
128k memory 2-320k Drives 

> & 10 MB Hard Disk Options 


Total Access Systems 


2054 University Avenue, Suite 202 


Berkeley, CA 94704 
(415) 540-8066 
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GREAT DRIVES. 





Floppy Disk Services offers both. 


We supply the industry with high quality disk drives and peripherals. 
And our prices are some of the best you'll see. Floppy Disk Services 
is a contracted dealer for Siemens, Tandon and Shugart. Starting 
with their drives, we design complete packages to give you the 
system capacity you’re looking for and the dependability you need. 


We offer add-on drives for IBM, Radio Shack, Heath, Apple and 
most other microcomputers, all at a significant savings to you. 
Check the examples below and you'll see what we mean. 


Custom Enclosures. At Floppy Disk Services, we also sell 
disk drive enclosures, designed by our own experts to be functional 
and attractive. And our quantity pricing is so competitive, we invite 
dealers and group purchasers to call. 


Thinline/Half Height Specials. Floppy Disk Services 
has just contracted with Shugart, and we’re carrying their half- 
height 514 & 8” systems. If you would like some unbelievable prices 
on SA-455, SA-465, SA-860’s and others, call today! We are 
legitimate contracted dealers—no middle-man. 


Due to production deadlines, prices in this ad are 2 months old, so we encourage you 
to call us for current prices and new product info. 


PAYMENT POLICY — We accept MasterCard, VISA, personal checks & MO. 
We reserve the right to wait 10 working days for personal checks to clear your bank 
before we ship. All shipping standard UPS rates plus shipping & handling. NJ 
residents must add 6% tax. 


GREAT PRICES. 

















SS BAAN 


Free Catalogue. If youd like to receive our 
Catalogue of Disk Drives and Peripherals, just call or 
write — we'll mail your copy immediately. And if you want 
to talk with an expert about getting more out of your 
system, we'll be happy to help. 


Toll Free Order Line (800) 223-0306 
Tech Help or Info. (609) 799-4440 


FLOPPY 
OlSK 
Bee VIG 


ee | Bee 


741 Alexander Road Princeton, NJ 08540 
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Gi ects and e .... compilers 


TELECON’S C COMPILERS OFFER YOU 
@ FULL C 

@ UNIX* Ver. 7 COMPATABILITY 

® NO ROYALTIES ON GENERATED CODE 

@ GENERATED CODE IS REENTRANT 

@ C AND ASSEMBLY SOURCE MAY BE INTERMIXED 
@ UPGRADES & SUPPORT FOR 1 YEAR 


6809 PDP-11*/LSI-11*|  8080/(Z80) 8088/8086 
et TARGET TARGET TARGET TARGET 
WITHOUT 
FLEX*/UNIFLEX* | $200.00 “roar 500.00 500.00 500.00 
OS-9* $350.00 FLOAT 
WITHOUT 
RT ort 500.00 pets 500.00 500.00 
PDP-11 350.00 wi 
200-005 ricsat 
CP/M* ct 500.00 
8080/(Z80) 500.00 ey 350.00 wh 
200.00 raat 
PCDOS*/CP/M86* | 
wit ath 500.00 500.00 500.00 360.00. 


Others Pending 
C SOURCE AVAILABLE FOR $2,500°° 


90. UIP YOURE READY TOMOVEUPTOC ... 
CALL 
408-275-1659 
TELECON SYSTEMS 


1155 Meridian Avenue, Suite 218 
San Jose, California 95125 
















* PCDOS is a trademark of IBM CORP. MSDOS is a trademark of MICROSOFT. UNIX is a trademark of BELL LABS. RT-11/RSX-11/PDP-11 is a trademark of Digital Equipment 
Corporation. FLEX/UNIFLEX is a trademark of Technical Systems consultants. CP/M & CP/M86 are trademarks of Digital Research. OS-9 is a trademark of Microware & r 


Motorola. 
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“Introducing the new Eco-C Compiler” 


You already know C has what you need in a language; 
structured code that rivals assembler in size and speed, 
a rich set of operators and the flexibility that you 
demand. And C’s portability means that your software 
won't become obsolete. No more learning a new instruc- 
tion set each time a new processor pops up. 


Only problem was that a full-featured C compiler either 
cost a fortune or it lacked the data types you need, like 
floating point numbers. Meet the answer to your problem, 
our new Eco-C™ compiler. 


Eco-C is a full C compiler with a complete set of 
operators and data types including longs, floats and 
doubles. You don't have to settle for less. 


We also know your time is valuable, and youve got 
better things to do than wait for a compile-link to end. So, 
we designed the compiler from the ground up. It's based 
on a true LL(1) grammar; no brute force parsing. A 
typical compile-and-link takes only a minute or two. 
Error messages are meaningful and right on the money. 


And when your masterpiece is done, it’s fast, efficient 
and yours. There are no royalty fees on software 
produced with the Eco-C compiler. 


Everything that you need is included. We've teamed 
Eco-C with Microsoft's MACRO 80™ to give you a 
reliable assembler and linker; a $200.00 value by itself! 
Since the compiler generates assembler output, you 
can even modify the compiled code if you wish. You can 
then assemble it (M80) to produce REL files for the linker 
(L80). Of course there’s a run-time library, and helpful 
user's manual, too. 


Eco-C is designed for the Z80™ CPU using either CP/M 
or MP/M. (Other versions coming soon.) The price is 
$350.00 and the user’s manuals are $40.00. For more 
information, call or write: 





ECOSOFTA#@ INC. 


P.O. Box 68602 
F — Indianapolis, IN 46268 
[races] (317) 255-6476 





Eco-C is a trademark of Ecosoft Inc. Z80 is a trademark of Zilog and CP/M and MP/M are trademarks of Digital Research. 
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ics Adapter and a printer capable of 

“dot graphics” provides a powerful 
utility function. The figure on page 36 
shows an example of the image produced. 
PC-DOS at levels v.1.0 and v.1.1 does not 
provide direct support for this function. 
As this article is being written, v.2.0 was 
announced. I’ve heard that the new re- 
lease corrects this omission, but my local 
suppliers can’t supply v.2.0 as yet, so I’ll 
ignore this new capability. All references 
to PC-DOS in this article should be 
assumed to refer to v.1.0 or v.1.1. 


T: combination of the Color/Graph- 


I’ve attempted to keep this at a 
“general’’ level, so that those of you who 
have “‘different’” hardware may use the 
information to write your own utility. 
Specifically, however, the article (and 
included listing) is written for the stan- 
dard IBM Color/Graphics Adapter and the 
original IBM Printer (EPSON MX-80) 
with the GRAFTRAX PLUS ROM in- 
stalled! As I’m sure many of you are 
aware, the MX-80 produces quite variable 
results depending upon which control 
ROM is installed. The Graphics printer, 
provided on later models, should also 
work “‘as is,’ but minor adjustments 
may be required. 


To introduce the “‘solution,’” it is first 
necessary to define the problem. In its 
simplest form, the problem is that of 
mapping. The color/graphics regeneration 
buffer contains a bit-encoded form of the 
displayed image. Dot matrix printers also 
use a bit-encoded form of the image to 
be printed. As you might expect, the two 
encoded forms are not even similar. The 
requirement for this utility, then, is simply 
that of mapping one bit-encoded form to 
another. Of course, before mapping can 
be performed, it is first necessary to 
understand the “rules” for encoding in 
both the input and output forms. 





Dan Daetwyler, Route 5, Box S18A, 
Springdale, Arkansas 72764. 


References are made to IBM-PC, PC- 
DOS, etc., which are registered trademarks 
of International Business Machines Cor- 
poration, Armonk, N.Y., and to EPSON 
MX-80, GRAFTRAX PLUS, etc., which 
are registered trademarks of Epson 
America, Inc. 


Display Regeneration Buffer Format 


For detailed specification of the 
input form, you are referred to the JBM 
Technical Reference Manual for the PC. 
This article considers only the medium- 
resolution graphic mode, and includes the 
basic information that describes the bit 
stream used in this mode. In this mode 
the addressable unit is the “‘pel,” and the 
screen image is composed of 64,000 pels. 
The pels are ‘‘compressed”’ so that each 
byte of the buffer contains four pels, 
hence the regeneration buffer size is 
16,000 bytes. Due to the compression, 
each pel must be two bits in size, giving 
four possible bit patterns (0 through 3). 
The zero pattern indicates the ‘‘back- 
ground” color, while patterns 1 through 3 
indicate which of the three possible 
“foreground” colors has been selected. 
Palette selection and background color 
selection are not germane to this article, 
so I’ll ignore them. 


So far, this encode seems simple. You 
need only visualize a string of bytes which 
are associated with the screen positions. 
The first byte of the buffer is the upper 
left corner of the screen. The four pels 
corresponding to the first four dots (left 
to right) at the upper left corner of the 
screen are in this byte. The second byte 
contains the next four dots, etc., until 
320 dots have been defined (80 bytes). 
Unfortunately, this simple and straight- 
forward representation now breaks down. 
The second row of dots on the screen is 
not the next 80 bytes of the buffer, but 
rather is the 80 bytes at an offset of 8000 
in the buffer. The regeneration buffer is 
organized into two blocks or banks of 
8000 bytes each. I won’t bore you with 
the rationale behind this organization, 
since it’s purely related to hardware design 
and addressing. From our viewpoint it’s 
sufficient to know that even-numbered 
rows are stored in the first bank, while 
odd-numbered rows are in the second 
bank. 

To summarize, medium-resolution 
graphic images appear in the regeneration 
buffer as they appear on the screen, left 
to right, top to bottom, but the pels are 
compressed four to a byte, and alternate 
rows are stored in alternate banks. 


Print Line Buffer Format 


Dot matrix printing, on the other 
hand, considers a print “line”? to contain 
eight rows of dots, left to right, top to 
bottom. The most significant bit of each 
byte corresponds to the top row of dots 


in the print line. The printer used for the 
program provided offers two forms of dot 
matrix print: normal and high density. 
High density gives maximum resolution, 
so that was chosen. When operating in 
dot matrix, high-density mode, the printer 
will record 960 columns in the maximum 
print line (a column is a “‘dot’’). Although 
one could map the graphic screen on a 
pel-to-dot basis, the image would be 
small, and no simulation of color would 
be possible. Since the maximum screen 
line contains 320 pels, dividing 960 by 
320 gives us three dots per pel available. 
A little experimentation or computation 
shows that using a vertical dimension of 
two gives an image result that approxi- 
mates screen proportion. Our mapping 
function, then, will map a pel to a 3x2 
dot matrix. This also permits control of 
the dot density in this matrix to simulate 
color. Mapping for 100% density gives a 
very dark pel, while mapping for 30% 
density gives a light pel. 


Now we can rough out the mapping 
function required. It must select pels from 
the regen buffer, by unpacking. These 
pels must be mapped to the corresponding 
3x2 position in the printer buffer (left to 
right). The mapping function must also 
determine the row number of the pel and 
select from either the first bank of the 
buffer for even-numbered rows or the 
second bank for odd-numbered rows. 


Program Description 


Having determined the method of 
mapping, let’s look at one program (see 
listing on page 38) that uses this scheme. 
PRTGRPH is a small, totally self-contained 
utility that will perform this mapping. It 
is written to produce a “*.COM”’ file, since 
such a file is easier to patch if a change in 
control streams is required. The constants 
and data areas are given at the start of the 
program, but we’ll skip over all of them 
initially. 


The program proper starts with the 
control procedure, PRTGRPH. Initializa- 
tion consists of setting the extra segment 
register to the segment address of the 
regen buffer (OB800H), and using stan- 
dard DOS functions to prompt for (and 
accept) a title. The title is then ‘‘termi- 
nated”’ by a “‘$”’ and left in the title save 
area, LBUF, for later use. The printer is 
initialized by output of the control 
stream, LSPC. For the standard GRAF- 
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ZOOADSOF MARE INC 


mus Offers you a variety of Cross Assemblers for your Z-80 CP/M* System. SEES 


Z-8000 Cross Development Z-80 Macroassembler $49.50 
Package $179.50 Power for larger programs! This 2500AD macro- 
f larg be g 
Instant Z-8000 Software! This package allows develop- assembler includes: , 
ment and conversion of software for the Z8001, 8002, * Zilog Z-80 Macroassembler (with the same powerful 
8003 and 8004 based machines on a 64K Z-80 CP/M features as all our assemblers) 
machine. This powerful package includes: ¢ powerful linker that will link up to 400 files 
«a Z-80 to Z-8000 Assembly Language Source « Intel 8080 to Zilog Z-80 Source Code Converter 
Code Translator (to convert all your Intel source to Zilog Syntax in one 
* an 8080 to Z-8000 Source Code Translator simple step) 
¢ Z-8000 Macro Cross Assembler * COM to Hex Converter (to convert your object files 
¢ Linker and Loader to Hex for PROM creation, etc.) 
* COM to Hex File Converter 52 page User Manual 


¢a 100 page User Manual 
«a Zilog Z-8000 Technical Reference Manual 


6502 MacroCrossAssembler $79.50 


The Translators provide Z-8000 source code from 6502 software on your Z-80 machine! This 2500AD 
Intel 8080 or Zilog Z-80 source code. This source code software allows you to develop large, powerful assembly 
expansion is from 2% to 11%. The Translator outputs a language 6502 programs on a Z-80 CP/M System. The 
worksheet and a Z-8000 source file. The worksheets show program uses standard mnemonics with a straightforward 
each line of 8080/Z-80 code, with notes to help the Zilog 2-80 type syntax. This package includes: 
programmer to optimize performance, and further lower ¢ 6502 Macro Cross Assembler 

code expansion. It even comments lines it adds! The Z-8000 - the powerful 2500AD Linker 


source code used by these packages are the unique : 
2500AD syntax using Zilog mnemonics, designed to make a 50 page User Manual 
the transition from Z-80 code writing to Z-8000 easy. Other Macro Cross Assemblers available: 


* Zilog Z-8 $79.50 Intel 8748, 8749, etc. $79.50 
ques Al) 2500AD Assemblers and Cross Assemblers support the following features: == 


Relocatable Code — the packages include a versatile hierarchy may be changed through the use of parenthesis. 
Linker that will link up to 400 files together, or just be used Listing Control— allows listing of sections on the 


ee ea allows program with convenient assembly error detection 

L File HandlinaC it eam bi rT overrides, along with assembly run time commands that 
arge File Handling Capacity — the Assembler wi may be used to dynamically change the listing mode 

process files as large as the disk storage device. All during assembly 

buffers including the symbol table buffer overflow to disk. Hex File Converter, included —for those who have 

Powerful Macro Section—handles string comparisons special requirements, and need to generate object code 

during parameter substitutions. Recursion and nesting in this format 

limited only by the amount of disk storage available. Plan Enali i: Keron Moss Fig 

Conditional Assembly — allows up to 248 levels graves cuty co ivotes 


of nesting. System requirements for all programs 
Assembly Time Calculator—will perform calculations Z-80 CP/M 2.2 System with 64K RAM and at least a 
with up to 16 pending operands, using 16 or 32 Bit 96 column printer is recommended. 


arithmetic (32 Bit only for 16 Bit products). The algebraic 
Z-8000 based versions of all programs are available. Call 2S500ADSOFTWARE, 303-752-4382. 


























DE Fe ee ee ee ee ee ge 
I would like to order: Name 
: i 
Coming soon! | 02-8000 cross Development Company 
: Package $179.50 Address 
fordetails. | 
Call wd de 0 Z-80 Macroassembler $ 49.50 City State Zip 
* 8086 Macro Cross 1 O 6502 Macro Cross Assembler $ 79.50 on Ext. 
oo eo 86 1 O Zilog Z-8 $ 79.50 Make and model of 
* 8080 and 2-80 to 80 | Intel 8748, 8749, etc. $ 79.50 computer system 
Translator , 0 C.O.D. (2500AD pays C.O.D. charges) 
¢ 8086 Relocating Macro- ! Cheek ‘nin total $ CO VISA or MasterCard #, Exp. Date (mo./yr.) 
assembler for CP/M86 1 — 8 Single Density shipping/handling 
¢ all 2500AD products 1 0514" Osborne ($6.50 per unit) $ Signature 
running under CP/M86 ss! totalorder $ 2A0O0ADSCOFMA 
3 REINC 
CP/M is a registered trademark of Digital Research, Inc. P.O. Box 441410 Aurora,CO 80014 303-752-4382 
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Circle no. 2 on reader service card. 
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TRAX PLUS ROM, the printer control 
string: 
Escape, A, 8 


sets the printer to a line height of 8/72 
inches. If you’re using a different ROM, 
this control stream must be modified to 
match your ROM. A little experimentation 
using DEBUG to modify the control string 
should allow you to determine the proper 
line spacing for your printer. 

Initialization is completed by setting 
the line count register (CX) to 50 (twice 
the lines on the screen), and the regen 
buffer register to a zero offset (SI). The 
main process loop at GRP1 is then entered. 
The call to PUTLNE will cause one print 
line to be generated and printed. The buf- 
fer register is stepped to the offset (start) 
of the next four display lines to be printed, 














¢ Compiler option to generate special 
symbol table for new dynamic debugger 
by David Kirkland. (With the debugger, 
the distribution package now requires 
two disks. 


¢ Takes full advantage of CP/M® 2.x, 
including random-record read, seek 
relative to file end, user number 
prefixes, and better error reporting. 


* Clink option to suppress warm-boot 
¢ New library file search capabilities 
e New, fully-indexed 180 page manual 


¢ @CP/M is a trademark of Digital 
Research, Inc. 


DEALER INQUIRIES 
WELCOME 


Order w/check or money order to: 





or call (316) 625-2361 mornings only 


Wer. 


Including a new Dynamic Debugger! 
Look at these additional Features: 


Depicatep Micro Sysrems. INC. 


112 N. MAIN, BOX 287, YATES CENTER, KS 66783 


and the process loops when the line count 
is zero. The remainder of the code in 
PRTGRPH simply restores the printer to 
normal spacing and mode, prints the 
saved title, and restores the printer page 
to the start of the next page. 

The next procedure, PUTPRT, simply 
puts a string (terminated by a “‘$”) to 
the printer. The code makes the function 
obvious, and I won’t waste space describ- 
ing this procedure. 


PUTLINE clears the print buffer, 
builds the dot image, and then prints it. 
It’s called once per line and is inserted in 
the program flow to preserve the entry 
values of the line counter and the regen 
buffer register. Useful work is performed 
by CLRBUF BLDLNE, and PRTLNE 
which are called by this procedure. 








NEW PRODUCT 
COMING! 


Very soon we will announce a 
reasonably priced, source-included, 
floating point package (using BCD 
mantissas) designed especially for 
financial application running under BDS 
C. Watch this ad for details. 


$149” 


EACH 
ONLY 


PLUS $2.50 SHIPPING 
KS. RESIDENTS ADD 4% SALES TAX 








Robert Ward, Pres. 





34 Circle no. 24 on reader service card. 


CLRBUF again is a straightforward 
routine that simply pre-sets the printer 
buffer to binary zeros. PRTLNE simply 
prints the buffer, but in this case, it 
initializes the printer for dot matrix print- 
ing. This is done by output of the string 
BGRPH, which for the utilized ROM is: 


Escape, L, 192, 3 


This cryptic string tells the printer to 
enter high-density (““L”) print mode for 
a line length of 192 + (3 * 256), or 960 
dots. This re-initialization is required for 
each line, since the printer simply enters 
and stays. in dot matrix mode for the byte 
count defined by this line length. It then 
returns to the mode it was in when it 
started the process. 

BLDLNE is the basic mapping func- 
tion. It begins by setting the print buffer 
register (DI) to zero, and an internal loop 
counter (BX) to the number of bytes in 
the line (80). A two-bit mask (OCOH) is 
set in the DH register, and the inner loop 
counter (CH is set in the outer loop, 
OLP. The inner loop, ILP, begins by clear- 
ing the shift count (CL) and loading the 
first regen byte for this print line into the 
AL register. This byte is masked by the 
content of DH and the result tested for 
zero. If zero, this pel is background color 
and is skipped. If non-zero, the call to 
SAVPEL is executed. In either case, the 
logic flow picks up at PEL2 which steps 
the shift count by 2 and loads the next 
regen data byte. 


SAVPEL, which will be discussed in 
more detail later, simply fills in the 3x2 
matrix with a dot pattern suitable for the 
color code determined by this masking 
process. Since the print line image is 
being built a pel at a time, left to right, 
the code at PEL2, PEL3, and PEL4 loads 
data from the appropriate bank of the 
regen buffer, and at the appropriate off- 
set. Consider the first use of the routine. 
The SI register contains zero on entry, so 
the regen data load at ILP is of the first 
byte of the regen buffer, which corre- 
sponds to the first three dots in the first 
two rows of the print line (3x2 matrix 
again). The load at PEL2 is for the second 
two rows of the dot matrix print line, 
which correspond to the second row, first 
byte of the displayed image. It therefore 
is an odd-numbered row and must load 
from the second bank of the regen buffer 
(SI+2000H). The load at PEL3 is back to 
an even-numbered row, but it is now the 
third row of the displayed image (row 2 
when considering zero as the first row), 
and must load from the first bank, second 
line, or offset 5OH (80 characters into 
the buffer). The load at PEL4 follows 
the same logic, but it is again an odd- 
numbered row so the loading offset is 
2050H. 


Reaching STP, the code has completed 
the first three columns of the print line 
(eight rows), so the print buffer register 
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SOFTWARE DESCRIPTIONS 


TPM (TPM lI) - $80 A 280 only operating system which is 
capable of running CP/M programs. Includes many features not 
found in CP/M such as independent disk directory partitioning for 
up to 255 user partitions, space, time and version commands, date 
and time, create FCB, chain program, direct disk |/0, abbreviated 
commands and more! Available for North Star (either single or 
en density), TRS—80 Model | (offset 4200H) or Il, Versafloppy 
|, or Tarbell I. 


TPM-II - $125 An expanded version of TPM whichis fully CP/M 
2.2 compatible but still retains the extra features our customers 
have come to depend on. This version is super FAST. Extended 
density capability allows over 600K per side on an 8" disk. Availa- 
ble preconfigured for Versafloppy II (8” or 5”), Epson QX-10, 
Osborne II or TRS-80 Model Il. 


CONFIGURATOR | 
This package provides all the necessary programs for 
customizing TPM for a floppy controller which we do 
not support. We suggest ordering this on single den- 
sity (8SD). 

Includes: TPM-II ($125). Sample PIOS (BIOS) SOURCE 
(SFREE), MACRO II ($100). LINKER ($80). DEBUG | ($80). 
QED ($150), ZEDIT ($50), TOP | ($80). BASIC | ($50) and 


BASIC II ($100) NOW $250 


$815 Value 


CONFIGURATOR II 
Includes: TPM-II ($125). Sample PIOS (BIOS) SOURCE 
(SFREE), MACRO II ($100). MACRO III ($150). LINKER 
($80), DEBUG | ($80), DEBUG II ($100). QSAL ($200). QED 
($150), ZTEL ($80). TOP II ($100). BUSINESS BASIC 
($200) and MODEM SOURCE ($40) and DISASSEMBLER 
($80) 
$1485 Value NOW $400 
MODEL | PROGRAMMER 
This package is only for the TRS-80 Model |. Note: 
These are the ONLY CDL programs available for the 
Model |. It includes: TPM | ($80), BUSINESS BASIC 
($200), MACRO | ($80), DEBUG | ($80), ZDDT ($40), ZTEL 
($80), TOP | ($80) and MODEM ($40) 

NOW $175 







































$680 Value 


MODEL |i PROGRAMMER 
This package is only for the TRS-80 Model Il. 
It includes: TPM-II ($125), BUSINESS BASIC ($200). 
MACRO II ($100), MACRO Ill ($150). LINKER ($80). 
DEBUG | ($80), DEBUG II ($100), QED ($150), ZTEL ($80). 
TOP II ($100), ZDDT ($40), ZAPPLE SOURCE ($80). 
MODEM ($40), MODEM SOURCE ($40) and DISAS- 


SEMBLER ($80) NOW $375 


$1445 Value 
BASIC I - $50, a 12K+ basic interpreter with 7 digit precision. 
BASIC II - $100, A 12 digit precision version of Basic |. 
BUSINESS BASIC - $200. A full disk extended basic with 


random or sequential disk file handling and 12 digit precision 
(even for TRIG functions). Also includes PRIVACY command to 
protect source code. fixed and variable record lengths. simuitane- 
ous access to multiple disk files. globa! editing, and more! 


ACCOUNTING PACKAGE - $300. Written in Business 
Basic. Includes General Ledger. Accounts Receivable/Payable. 
and Payroll. Set up for Hazeltine 1500 terminal. Minor modifica- 
tions needed for other terminals. Provided in unprotected source 
form. 


MACRO | - $80. A Z80/8080 assembler which uses CDL/TOL 
mnemonics. Handles MACROs and generates relocateable code. 
Includes 14 conditionals. 16 listing controls, 54 pseudo-ops. 11 
arithmetic/logical ops. local and global symbols. linkable module 
generation, and more! 


MACRO II - $100. An improved version of Macro | with 
expanded linking capabilities and more listing options. Also inter- 
nal code has been greatly improved for faster more reliable 
operation. 


MACRO III - $150. An enchanced version of Macro ll. Internal 
buffers have been increased to achieve a significant improvement 
in speed of assembly. Additional features include line numbers. 
cross reference. compressed PRN files. form feeds. page parity. 
additional pseudo-ops, internal setting of time and date. and 
expanded assembly-time data entry. 














Z80 © 


Software 








DEVELOPER | 
Includes: MACRO | ($80). DEBUG | ($80). ZEDIT ($50). 
TOP | ($80). BASIC | ($50) and BASIC I! Now 


$440 Value W $1 50 


DEVELOPER || 
Includes: MACRO II ($100), MACRO III ($150), LINKER 
($80), DEBUG | ($80), DEBUG 1 ($100), BUSINESS BASIC 
($200), QED ($150), TOP Ii ($100), ZDDT ($40), ZAPPLE 
SOURCE ($80), MODEM SOURCE ($40), ZTEL ($80), and 
DISASSEMBLER ($80). 

$1280 Value NOW $350 
DEVELOPER Ill 
Includes: QSAL ($200), QED ($150), BUSINESS BASIC 


($200). ZTEL ($80) and TOP II ($100) 
$730 Value NOW $300 


COMBO 
Includes: DEVELOPER Il ($1280). ACCOUNTING PACK- 
AGE ($300). OSAL ($200) and 6502X ($150) 

NOW $500 


LINKER - S80. A linking loader for handling the linkable 
modules created by the above assemblers 


DEBUG | - $80. A too! for debugging Z80 or 8080 code. 
Disassembles to CDL/TDL mnemonics compatible with above 
assemblers. Traces code even through ROM. Commands include 
Calculate. Display. Examine. Fill. Goto. List. Mode. Open File. Put. 
Set Wait. Trace. and Search. 


DEBUG II - $100. A superset of Debug |. Adds Instruction 
Interpreter. Radix change. Set Trap/Conditional display. Trace 
options. and Zap FCB. 


6502X - $150. A 6502 cross assembler. Runs on the Z80 but 
assembles 6502 instructions into 6502 object code! Similar features 
as our Macro assemblers. 


QSAL - $200. A SUPER FAST Z80 assembler. Up to 10 times 
faster than conventional assemblers. Directly generates code into 
memory in one pass but also to offset for execution in its own 
memory space. Pascal like structures: repeat...until. if... then...else. 
while...do. begin...end. case...of. Multiple statements per line 
special register handling expressions. long symbol names. auto 
and modular assembly. and more! This one uses ZILOG Mnemonics. 


QED - $150. A screen editor which is both FAST and easy to 
learn. Commands include block delete. copy. and move to a 
named file or within text. repeat previous command. change. 
locate. find at start of line. and numerous cursor and window 
movement functions. Works with any CRT having clear screen, 
addressable cursor, clear to end of line, clear to end of screen, and 
80X24. 































$1930 Value 


DISK FORMATS 


When ordering software specify which disk format you would like. 


CODE DESCRIPTION 


8SD 8" IBM 3740 Single Density (128 bytes/26 sectors/77 tracks) 
8DD 8” Double Density (256 bytes/26 sectors/77 tracks) 
8XxD 8” CDL Extended Density (1024 bytes/8 sectur/77 traceks = 616K) 


5SD 5.25" Single Density (TRS80 Model |, Versafloppy |. Tarbell 1) 


abP 5.25” Epson Double Density 

5PC 5.25” IBM PC Double Density 

5XE 5.25” Xerox 820 Single Density 

50S 5.25" Osborne Single Density 

5ZA 5.25" Z80 Apple (Softcard compatible) 





ZTEL - $80. An extensive text editing language and editor 
modelled after DEC's TECO. 


ZEDIT - $50, A mini text editor. Character/line oriented. Works 
well with hardcopy terminals and is easy to use. Includes macro 
command capability. 


TOP | - $80. A Text Output Processor for formatting manuals. 
documents. etc. Interprets commands which are entered into the 
text by an editor. Commands include justify. page number. head- 
ing. subheading. centering. and more. 


TOP Il - $100. A superset of TOP |. Adds: embedded control 
characters in the file. page at a time printing. selected portion 
printing. include/merge files. form feed/CRLF option for paging, 
instant start up. and final page ejection. 


ZDDT - $40. This is the disk version of our famous Zapple 
monitor. It will also load hex and relocatable files. 


ZAPPLE SOURCE - $80. This is the source to the SMB 
ROM version of our famous Zapple monitor. It can be used to 
create your own custom version or as an example of the features 
of our assemblers. Must be assembled using one of our assemblers. 


MODEM -Acommunication program for file transfer between = 
systems or using asystem as aterminal.Basedontheusergroup } 
version but modified to work with our SMB board or TRS-80  } 
Models | or Il. You must specify which version you want. 


MODEM SOURCE - $40. For making your own custom 
version. Requires one of our Macro Assemblers. 


DISASSEMBLER - $80. Does bulk disassembly of object 
files creating source files which can be assembled by one of our 


assemblers. 
HARDWARE 


S-100 — SMB I! Bare Board $50. “System Monitor Board” for 
S-100 systems. 2 serial ports, 2 parallel ports, cassette inter- 
face, 4K memory (ROM, 2708 EPROM, 2114 RAM). and power 
on jump. When used with Zapple ROM below, it makes putting 
a S-100 system together a snap. 

Zapple ROM $35, Properly initializes SMB |/Il hardware, pro- 
vides a powerful debug monitor. 

IBM PC — Big Blue 280 board $595. Add 280 capability to your 
IBM Personal Computer. Runs CP/M programs but does not 
require CP/M or TPM. Complete with Z80 CPU, 64K add on 
memory, serial port, parallel port, time and date clock with 
battery backup, hard disk interface, and software to attach to 
PC DOS and transfer programs. Mfrd by QCS. 

50% Discount on all CDL software ordered at the same time as 
a Big Blue (and for the Big Blue). 

APPLE II — Chairman 280 $345, Add Z80 capability to your 
Apple II/Il Plus computer. Runs CP/M programs with our 
more powerful TPM. Includes 64K memory add on (unlike the 
competition this is also useable by the 6502/DOS as well as 
the Z80), TPM, QSAL assembler, QED Screen Editor, and Busi- 
ness Basic. Mfr'd by AMT Research. 

Apple Special $175, Buy the Apple Z80 Developer at the same 
time as the “Chairman” and pay only $175 instead of $325. 


APPLE Z80 DEVELOPER 
Includes: 6502X ($150), MACRO II ($100), MACRO III 
($150), QSAL ($200), QED ($150), LINKER ($80), DEBUG | 
($80), DEBUG I! ($100), ZDDT ($40) and BUSINESS 


BASIC ($200) 
NOW $325 


VALUE: $1250 
$175 when purchased with AMT “Chairman” Board 


ORDERING INFORMATION: 
VISA/MasterCard/C.0.D. 

Call or Write With Greening 
Information... : 


OEMS: 
Many CDL products are available for 
licensing to OEM's. Write to Car! 
Galletti with your requirements. 

Dealer Inquiries Invited. 

















TPM INFO When ordering TPM | or Il. in addition to Disk Format. please specify one of the following codes: 


CODE DESCRIPTION 


TPM |: NSSD/H_ ~=North Star Single Density for Horizon |/0 
NSSD/Z North Star Singte Density for Zapple |/0 
NSDD/H = North Star Double Density for Horizon !/0 
NSOD/Z North Star Double Density for Zapple !/0 
TRS80-1 TRS-80 Model | (4200H Offset) 
TRS80Il + TRS-80 Model Il 
vig Versafloppy | 8" 
vi5 Versafloppy | 5.25" 

TPM-ll: -ViI8 Versafloppy II 8" (XD) 


Vil5 Versafloppy II 5.25" 
TRS8OIl_ +=TRS-80 Model II (XD) 


Prices and Specifications subject to change without notice. 


For Phone Orders ONLY Call Toll Free... 
1-(800) 458-3491 exceot Pa 


Ask For Extension #15 


For information and Tech Queries call 


(609) 599-2146 


—— 
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TPM. Z80. CP/M. TRS80 are trademarks of CDL. Zilog. DRI and Tandy respectively. 


Computer Design Labs ...... prvrs 


342 Columbus Avenue/Trenton, NJ 08629 


Circle no. 13 on reader service card. 











MOTOROLA 68000 
STRUCTURED MACRO 
CROSS ASSEMBLER 
for CP/M-80* (8” SSSD) 
EXORmacst Compatible 


$200 


Manual 
$20 


@ farbware 
1329 Gregory 
Wilmette, III. 60091 


*Trademark of Digital Research 
+Trademark of Motorola Inc 


Circle no. 30 on reader service card. 
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is stepped by three. The mask is shifted 
to the next pel position, and the inner 
loop count decremented. This inner loop 
will execute four times (for the four pels 
in the screen byte), and then exit to a 
step of the regen buffer register, moving 
to the next four pels. The outer loop 
counter (BX is decremented, and the 
process continues until 80 regen buffer 
bytes have been processed. This corre- 
sponds to one display line, and the build 
function exits. 


To complete the code description, 
SAVPEL simply converts the color code 
masked from the pel to a dot matrix code 
of suitable density and stores this code in 
the print line buffer. You’ll note that the 
mask saved in the print line buffer is saved 
in a two-bit space (the two part of the 
3x2 matrix) and is saved in three bytes 
(the three part). Since we don’t know in 
which two-bit field the pel is located in 
this procedure, the test checks all four 
two-bit fields. It checks first for the pres- 
ence of a “‘one bit’ in the two-bit fields. 
If not found, it assumes that the color 
code is a two, since the routine would 
not be entered if the color code is zero. 
If a one bit is found, then a two bit is 
checked. If not found, the color code is 
one, while if found, the color code is 


three. The DL mask and the CL shift may 
be modified to give different shade pat- 
terns. The one provided in the code seems 
to give a good contrast between colors, 
yet provides a pleasing overall density. 
You can try other combinations and 
select the one most suited to your printer 
(and your eye). 


That’s it. The listing is relatively well 
commented, so try reading through the 
code if this description doesn’t seem clear. 


Assembly and Link 


Key in the source code as shown in 
the listing, and assemble using either of 
the assemblers. If you have a different 
printer or control ROM, you should 
change the printer control strings to 
match your configuration. Link as you 
would any other program. The link will 
respond with a “‘warning”’ message inform- 
ing you that there is no stack segment 
and will give an error count of one. Ig- 
nore this error message and execute 
EXE2BIN. Rename the resultant file 
“name.COM” and execute. 


For those of you who are operating 
at PC-DOS v.1.0, you may not have the 
DOS utility EXE2BIN, which is almost 
necessary to produce a “.COM”’ file. You 


a le 
* ate 


i | Ree eee: eereres BREE E EE a ye ae pag erento Neen RNR 
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singer Witenes ate aR 
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a 


ie 





ie 
= = = = 
Seo eae 
“ _ 


Logepercecscres: 
? 
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Kaliedoscope Figure 1 
36 


Dr. Dobb’s Journal, Number 80, June 1983 








may, therefore, prefer an “.EXE” file. If 
so, you must add a stack segment, initial- 
ize your data segment register, initialize 
the stack for the eventual return to DOS, 
and change the PRTGRPH procedure to a 
“FAR.” 


Use of the Utility 

Use of the utility is primitive, with 
one big “hooker.” The utility will print 
the content of the color/graphics regenera- 
tion buffer, at the instant of execution. 
How you invoke this utility without dis- 
turbing this buffer is a function of how 
you’re configured. I’m working with both 
the monochrome and the color/display 
adapters, so it’s easy for me. I simply 
arrange my graphics program so that it 
does not clear the graphics screen on exit, 
and switches back to the monochrome 
display before exit. That leaves the graph- 
ics regen buffer containing the image I 
want, and I can enter the command to 
execute this utility on the monochrome 
display. If you have only the color/graphics 
adapter, you'll have to be considerably 
more complex in your process. One trick 
is to include code in your display genera- 
tion program that writes the entire regen 
buffer to disk under some condition. This 
utility can then be simply modified to 
load the buffer image into memory and 
point to it instead of the regen buffer. 


Finally, this program is hereby placed 
in public domain. You may copy it, util- 
ize it in your own work, etc. freely and 
without notification. 


Although this utility is small and not 
too much keying is required, I will pro- 
vide copy service. A single-surface disk- 
ette and a check for $5 will get you a 
copy of the program source materials, 
object file, and an executable “.COM”’ 
file. A check for $7.50 will get you a new 
Verbatim (or equivalent) containing the 
same materials. I’ll furnish the return 
mailer and will ship UPS Blue Label 
unless otherwise instructed. Send to: Dan 
Daetwyler, Route 5, Box 518A, Spring- 
dale, AR 72764 (that’s Arkansas, not 
Arizona). 


If you have trouble/questions with 
this one, you can write me at the above 
address, or call 501-756-0212. (I’m usu- 
ally around 24 hours, seven days.) Good 
luck and happy printing. 


DB, 


(Listing begins on page 38) 


Reader Ballot 
Vote for your favorite feature/article. 
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HIGH PERFORMANCE 
UNIVERSAL NETWORK SYSTEM 


Provides a high performance local data link to top level software: 


CONSTELLATION 

TURBODOS 
CP/NET 

your custom software 


UPNET FEATURES INCLUDE: 
@ Automatic message routing @® Standard 4-conductor 
among network controller and up to telephone wiring (extension type) 


64 stations. with modular connectors. 

e Error detection and reporting @ Test mode enables simplified point- 
handled automatically. to-point communications. 

@ Flat cable connectors can be @ Single wall mounted 


adapted to any size and arrangement 
(Corvus 34-pin standard) to 50 pin 
through the use of an on-board wire 
wrap configuration area. 


transformer powers controller and 
many stations through LAN buss (no 
power required from Host computer). 


@ Newtechnology microcontroller @ 375K baud network 
and circuitry fits into compact enclosure communications rate. 
(32 /2K5 Wek 1a), 


Now you can add a local area network to single-user computers FAST and 
EASY. Simplified system is easy to install, plugs into 4-wire telephone 
jacks and connects to ANY computer with an 8-bit bi-directional parallel 
port with 3-bit control (interface I.C:s: PIO, 8255A, etc.). Sample 
TURBODOS circuit driver listing and CP/M file transfer programs are 
provided to facilitate application development. 


UPNET SYSTEM INTERFACE $189.00 (Quantity 1-9) 


OEM INQUIRIES INVITED 











COMPUTER SYSTEMS LTD. 


P.O. BOX 83069 
SAN DIEGO, CA 92138-3069 
(619) 272-1666 


CONSTELLATION AND CORVUS are trademarks of CORVUS SYSTEMS, INC., TURBODOS is a trademark of SOFTWARE 2000, CP/NET and 
CP/M are trademarks of DIGITAL RESEARCH, INC. 
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Printing Graphics on the IBM PC (Text begins on page 32) 


COMMENT \ 

FETE TE TEE IE HE TE TE FETE HIE TE ETE IE TE EME TE ETE IE TE HE IEE EE IE FE TEI IEE IE JE ETE JEJE TE IEE JE EE JE TEESE JE HEE SE HE ESE GE EEE EE SE JE JEJE HE JE UE JE JE 
% Copyright 1983 —- DD Systems — Springdale, AR * 
ERE EER EE HIE HEI IETE IE TEE TE IESE TE TE TE EE ETE TEE TET TO TET SE IEEE JE IEE ETE IE JE IE HE TE IEE FE FEE SESH DE IE HE OE 


3 ¥ 
% Output Color Graphic Screen to Printer * 
% % 
% This self-contained utility maps the "pel" maps of the color graphic * 
* refresh buffer to the printer. It assumes the image has been % 
* loaded by other services. * 
i 
EERE EEE EE EEE HR EE TEI I ERI REFER ESE IE, 


+ 
CODE SEGMENT FARA FUBRLIC *“CODE* 
ASSUME CS: CODE, DS: CODE 
ORG LOOK 
BEGIN: JMP FR TGREH 
PRMF T DE "Enter Title: #° Frampt for title line 
LSPC DE Bie HS Be doe hag Bo spets printer to 8/72" spacing 
RGREH DE Mtg A ak Ps Sg ae iSets to hi-density dot graphics 
NORM DR eg eg SP sResets to normal mode 
CRLF DA ng ly eT 
L. BRUF DE 8) 
DE G2 DUR 44") *litle buffer 
PRUF DE 960 DUP () §Rit graphics buffer 
DR . oe 
. 
FRTGREH FROC NEAR 
MOV AX, ORBOOH 
MOV ES, AX ‘Addressability of regen buffer 
MOV DX,OFFSET FRMFT 
MOV AH, 
INT 2 LH "Frompt for caption 
MOV DX,QFFSET LBUF 
MOV AH, 10 
INT 21H #Get title line 
MOV AL, LBRUF + 1 'Get entry length 
CRW 
MOV SI. AX 
MOV LBUR+SE S17, ? $2 yet line terminator 
MOV 5I,OFFSET LSPC 
CALL. PUTER T Hoe@et printer 
MOV Creo sFPrint line count 
MOV SI, (Start of regen buffer 
GRE TL: CALL. PUTLINE Output one line 
ADD Skat GO *# which is four screen rows 
L.OOF GRE 1 
MOV SI,0FFSET NORM 
CALL. FPUTERT "Restore printer to normal 
MOV S1,O0FFSET CRLF 
CASL. LL. PUTERT wapace line 
MOV O1,0FFSET LRUF+2 
CALL. PUTERT Output title 
MOV OKa od 
GRE Ss MOV S1l,0FFSET CRLF 
CALL FUTFRT iSpace to end of page 
LOOF GRP2 
MOV O1,O0FFSET NORM 
CALL PUT PRT 
RET 


mrp Na 
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UTPRT 


FPL: 


FPDNE: 
PUTPRT 


ts 


UTLNE 


CLRBUF 


CBLF: 


CLR BUF 


ERTLNE, 


PLis 


PRT LINE 


i 22 "se ‘st 


LDL.NE 


GLP s 


IL: 


ENDF 


Simple "put string" to printer 


PROC 
PUSH 
PUSH 
MOV 
CMF 
JZ 
MOV 
INT 
INC 
IMF 
POP 
POF 
RET 
ENDF 


NEAR 
SI 

DX 
DL..BYTE PTRISII 
DL. 7 $° 
FFDNE 
AH, 5 
21H 
SI 
PPLE 
DX 


SI 


sCheck for "end of string" mark 


*DOS Printer call 


Qutput one graphic "line" 


PROC 
PUSH 
PUSH 
CALL 
CALL. 


iClear bit buffer 
*Ruild dot image 
aOQutput line 


Clear line buffer to null 


FROC 
MOV 
CALL 
MOV 
MOV 
MOV 
MOV 
INT 
INC 
LOOF 
Ree T 
ENDF 


NEAR 
DI,DI 
AX,DI 
CX, 480 


WORD FTR FRUFCDI],AX sClears line buffer to null 


NEAR 

SI,O0FFSET BGREH 
FUTFPRT 
SI1,0FFSET FBUF 
CX, 960 ; 
DL, BYTE PTR CSI] 

AH, % 

21H 

ST 

PL 


;Set printer for dot graphic line 


and output bit stream 


Build dot graphic bit stream in buffer 


PROC 
XOR 
MOV 
MOV 
MOV 
XOR 


NEAR 

DI,DI sDot buffer index 
BX, 80 fLoop count for line 
DH, OCOH tQuter loop mask 

CH, 4 tinner loop counter 
CL CL iShift for pel save 


(Continued on page 41) 
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‘29° 
Menu-Plus 


You’ve probably heard about the glories of menu driven 
systems. This powerful package developed by Capacity 
Inc. makes the ease of menu driven systems affordable 
to any CP/M user. Menu-Plus allows rapid, easy 
configuration of simple or hierarchical menus. Youcan 
hide the complexities of CP/M and allow single 
keystroke invocation of your programs. It’s a users 
dream. Both beginners and experienced operators will 
find Menu-Plus a significant enhancement. You do not 
have to be a programmer to install or tailor Menu-Plus 
on your system. In just a few minutes, you can easily 
create whatever new menus you desire with a text 
editor. Our competitors offer products in the $75-$150 
range. We invite comparison of this product with any 
other menu system in terms of features or user 
friendliness. In terms of price there is no comparison. 


$ 4 92> 
Micro-WYL 


Tired of trying to use ED under CP/M? Here are just a 
few unsolicited quotes from our customers: 


“| operate a software house in Central California and 
have used a lot of text editors over the years. Micro- 
WYL has to be one of the best | have ever used, 
regardless of price.” 


“Micro-WYL is undoubtedly the hottest bargain on the 
market.” 


“Thank you, thank you, thank you.” 


“This editor is perfect for writing in nearly any 
programming language. [I] ... have no hesitation in 
recommending it to anyone whose requirements 
match the capabilities of this inventive piece of 
software.” -From a review in Infoworld (1 1/15/82) 


Now you can have the convenience of WYLBUR on 
any Z80 CP/M system. 


Overbeek Enterprises 


OVERBEEK ENTERPRISES is rapidly establishing a broad selection of inexpensive CP/M programs. We will be adding 
new selections continuously-— as fast as we can bring them into the market, while making absolutely sure that each one is 
a real bargain. Substantial quantity discounts are available. Our average time to process an order is 2 days. If for any 
reason you cannot make one of our products run on your system, we will refund the purchase price. 



















$29°° 
WSMX80 


Can you print these on your Epson? 


Wordstar/ Epson 
Print Processor 











e7=at 
ns Sari IGE Soa ame “Se M = a d; 
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WSMX80 has been created for WordStar users that 
have an Epson MX-80 or MX-100 printer equipped 
with either the Graftrax or the Graftrax Plus option. By 
separating the printing function from WordStar, all of 
the features of the printer can be used to full effect. 
Now you can use alternate character sets, compressed 
fonts, italics, and a variety of other features based on 
the Graftrax capabilities. WSMX80 has been widely 
used at the University of Kansas for over a year and 
has proved to be an invaluable tool. 


a 92> 


Disk Inspector 











Have you ever been unable to read a file due to a bad 
sector? Have you ever erased the wrong file? Disk 
Inspector acts as a full-screen editor for diskettes. You 
can simply watch as sectors are displayed on the 
screen in both character and hex formats. When you 
wish to make the display pause, touch the spacebar. If 
you wish to alter a sector, it is a simple matter to move 
the cursor over the appropriate character, alter it, and 
have the sector rewritten. 


Although Disk Inspector runs only on Z80 CP/M 
systems, you can inspect and alter normal (non CP/M) 
Apple diskettes, as well. The disk drives may be single 
or double density, single or double sided. 

Note: Disk Inspector requires an 80x24 screen on your CRT. 
































CP/M is a registered trademark of Digital Research, Inc. 


WYLBUR is a registered trademark of The Board of Trustees of the 
Leland Stanford Junior University 


WordStar is a registered trademark of MicroPro International 














[] 8” SSSD 
[_] Apple/Softcard 


[_] ALTOS Series 5 
[_] Televideo TS-802 


Northstar 5” DD 
[_] Advantage 







[1] KAYPRO 11 5” C1] Osborne L] Horizon 
LJ] NEC 5” L] Superbrain 0 Morrow Micro 
[-] Zerox 820 [_] Heath/Magnolia Decision 












Amount: 
$29.95 for Menu Plus 


$29.95 for WSMX80 
$29.95 for Micro-WYL 





$29.95 for Disk Inspector 
$2 for postage & handling 
TOTAL 








Name 





Address 


City 2 eS Oe |; SP aae 
Make your check payable to: Overbeek Enterprises 
P.O. Box 726 
Elgin, IL 60120 


To order C.O.D. or with a MasterCard or Visa call 
31 2-697-8420 between 9 am and 5 pm (CST) 
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Printing Graphics on the IBM PC (Listing continued, text begins on page 32) 


PEL2s 


i 


STP: 


BIL DLE 


“a2 “=2 


nN 


BAVFE.. 


ONES & 


4 The 


DOTWO: 


DOTHRE « 


SAVFEL, 
CODE 


SMF 
DEC 
JNZ 
INC 
DEC 
JNZ 
FRET 
END F 


Save 


PROC 
TEST 
JNZ 
J MF 
TEST 
JNZ 


following is for a data bit 


MOV 
SHR 
OR 
OF 
OR 
Ris T 


MOV 


ENDS 


END 


AL, BYTE 
AL.. DH 
FEL? 
SAVPEL 
Cie 
AL. BYTE 
AL, DH 
FEL 
SAVPEL 
ae 
AL, BYTE 
AL. DH 
FEL4 
SAVPEL. 
oc, 2 
AL, BYTE 
AL. DH 
STF 


PTR 


PTR 


PTR 


image for this pel 


NEAR 
AL. SSH 
ONEE 
poTWwO 
AL. , QAAH 
DOTHRE 


Di... OCOH 

OL. Cl. 
FPRUFEDII, DL 
FRUFCDI+1 2, Db. 
PRUE ODI+2 7, DL 


DL., 80H 

DLL 
PRUFCDII, DL 
FPRUFCDI+21, Db 
Diy 1 
PRUFCDI+12, DL 


DL... OCOH 


Gta, tk 
PRUFCDI+2 1, DL. 


BEGIN 


PTR Bercsr 


ES: CSI+2000H] 


ES: Cai+SoHd 


ES: (S1+2050HI] 


(of 


different 


;Get screen byte 
i Mask 
AMNon Zeca, so print blab 


Next row 


rStepping shaft count 
sRow three 


sFourth row 


iotep save buffer pointer 
HReEpas ition pel mask 


iContinue inner loop for next cal 
(Step regen buffer ptr 


tOuter loop 


"shade" for each color 
sQne bit on 


ilest for two bit 


4 


tLoad mask 
f and position 


End Listing 
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The Game of Life & 





omputer programs for running 

John Conway’s Game of Life were 

quite popular a few years ago. The 
problem with these older simulations was 
usually their speed: a single generation on 
a ten-by-ten grid could take up to 90 sec- 
onds. Presented here is a version of the 
game for the IBM/PC computer. Features 
of this version are adjustable speed (with 
2.7 generations/sec as a top speed), easy 
entry of the seed generation (via a screen- 
editor), and marking of cells due to be 
“born,” and cells remaining alive each 
generation (as different from cells marked 
to die). This feature gives a better impres- 
sion of fluidity on the grid. 

This version requires only the IBM 
monochrome display to run, and will run 
under either MS-DOS or CP/M-86, since 
only calls to the IBM ROM are made. 





Background 


The Game of Life takes place on a 
square grid. Every cell on the grid can be 
either alive or dead. Every cell on the grid 
has eight neighbors. Each generation, every 
cell on the grid is evaluated. The cell will 
remain alive if it has two or three neigh- 
bors, or will die if it has less than two 
(from loneliness), or more than three 
(from overpopulation). An empty cell 





by Simson a Garfinkel 





Simson L. Garfinkel, 18 Dartmouth Lane, 
Haverford, Pennsylvania 19041. 
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will have a “‘birth’’ (a live cell will be 
placed there the next generation) if it has 
exactly three neighbors. The game was 
developed by John Conway in 1976. 


The Program 


The program is straightforward. When 
first run, the screen is cleared and the cur- 
sor is positioned in the center. The cursor 
may be moved by pressing the four arrow 
keys on the keyboard (Num Lock doesn’t 
matter because the keyscan code is inter- 
rogated, not the ASCII code). A live cell 
may be deposited by depressing Ins, and 
a cell may be cleared by pressing Del. 
When the screen is complete, pressing Esc 
starts evaluation of the next generation. 

The program stores the grid in the 
screen memory of the monochrome dis- 
play. Associated with every displayable 
character on the screen are two bytes of 
memory, the low byte for the character 
displayed, and the hi byte for the display 
attributes (underlined, reversed, etc.). 
The program uses the attribute byte of 
every screen position as a second array to 
hold the next generation in while it evalu- 
ates the present generation. 

After the time delay, subroutine 
count is called. Count counts the number 
of neighbors that every cell has, and de- 
cides whether or not the cell will be alive 
in the next generation. If it is going to be 
alive, the display attribute for that char- 
acter is set to rev. If the cell is going to be 
dead, the attribute is set to dark. Rev and 
dark are reverse video and normal video 
in my listing, so when a cell is going to 


THE 


have a birth or stay alive, it is inverted 
on the screen, but rev and dark can be 
changed to three and five, causing both to 
display as normal if the flickering this 
produces is annoying. 

After all of the decisions regarding 
life and death are made, subroutine update 
goes through screen memory putting in 
the character for a live cell if the cell is 
supposed to be alive, or a dead cell if the 
cell is supposed to be dead, and resetting 
the attribute byte. 

The program then looks for a user 
key press. If one has occurred, the pro- 
gram quits if it was an Esc, or changes the 
time delay value if it was a digit. Pressing 
0 gives no delay, or about 2.7 generations 
per second. Pressing 9 gives a 3.5 second 
delay per generation. 


Expansions 

The one problem with this imple- 
mentation is that the screen doesn’t have 
enough rows to allow a simulation of 
a complex colony. I would love to see 
an implementation of life in medium- 
resolution color graphics, with births in 
blue and deaths in red, but I don’t have 
access to a color display, so that will 
have to wait. The program could also be 
cleaned up to make it run faster, but 2.7 
generations a second is really fast enough 
for most applications. DD, 


(Listing begins at right) 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 237 


"Handles all IEEE-488 1975/78 functions 
#|EEE 696(S-100) compatible 
®"MBASIC subroutines supplied; no BIOS 
oo required 
dustrial ports (8255A-5) 
vi Strial quality; burned in and tested 
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Game of Life (Text begins on page 42) 


Comment $ 


RMMKKKKRMKRKKMEKEKKEKEKKKEKKKKRKKRKKKE KK KK 


* * 
x The Game of Life * 
x * 


RRKMKKKRKKEKREKKEK KKK KKK KK KK 


John Conway's mathematical game of life, implemented on 
the IBM/PC, by Simson L. Garfinkel. 


Written in 8088 assembly language using the Microsoft 
Macro Assembler. 


Notes on running the program: 


When program is run: 


Ls Screen clears. 
User enters first generation from keyboard. 
Arrow keys move the cursor. INS key deposits 


a live cell, DEL removes a live cell, (in case 
the user makes a mistake.) 
a Pressing ESC starts program. 
For each generation, cells which will have life 
on the next turn are inverted. 
Screen is updated to next generation. 
Keyboard is interrogated for command. 
If ESC is pressed, program terminates. 
If a mumber 0-9? is pressed, speed is selected. 
At speed 0, approx. 2.7 generations/sec are performed 
At speed 9, each generation takes 3.5 sec. 
7. Program loops to #4. 


i 


on ao WW 


$ 
;Global definitions 
live equ 02 icharacter for a live cell 
dead equ 00 ;Character for a dead cell 
rev equ 70h ireverse video (marks cell to live) 
dark equ Z ;normal video (marks cell to die ) 
time equ 300 ;time delay base 
TERM equ 27 ;Character to exit mode 
eseg segment para public ‘codel' 
start proc far 


assume cs:cseg,ds:nothing,ss:stack,es:nothing 


. return location 
;set up (Continued on next page) 


EEE ag O01 Sn Ed OOD G80 tN a eer, Se OBES Ee 
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Game of Life (Listing continued, text begins on page 42) 


main: 


si: 


sii: 


$12: 


si3: 


$2: 


start 


Enter 


left 
right 
up 


push ds 
sub ax,ax 
push ax 


call Enter 
mov cx,0 


push cx 
cmp cx,9 
jz s13 


push cx 
mov cx,time 
push cx 
mov cx, time 
loop s12 
pop cH 
loop sil 
Pop cH 
loop sil 


call count 
call update 
pop Cx 


Mov ah,l 
int 16h 
jz main 


mov ah,0O 
int 16h 


emp al,TERM 
jnz s2 
ret 


cmp ae Sra i 
3b main 
cto: "2h, *?* 
jnbe main 


sub ei yt Oe 
mov ah,Q 
MOv CxX,ax 
jmp main 
endp 


proc near 


equ 75 
equ 77 
equ Te 


inow I can go home when I'm finished. 


;Enter board 
;initial delay, 0 


i;save delay variable 





;what a time delay! 

;Count up every cell's neighbours, 
;Update screen 

;get back the time delay 

;See if user has pushed a key 


;nope - loop Back 


;get the character our of the buffer 


;finished - go back to ms/dos 


;see if it is a speed command 


;Tt's a number 
imow it goes from Q to 9 


piet “t+ wt. es 


;Subroutine to enter board 
;define scan-codes: 


PY D0. <>. ems, ee 
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down 
point 
del 
esc 


equ 
equ 
equ 
equ 


call 


80 
82 
83 

1 


cls 


;clear the screen 


;Registers are used as follows: 


;DH 
; DL 


Mov 

mov 

el: mov 
Mov 
TLE 


mov 
imt 


cmp 
yz 
cmp 
jz 
cmp 
ie 
cmp 
jz 
cmp 
2 
cmp 
jz 


cmp 
jnz 
mov 
mov 
int 
ret 


go_left: 
cmp 
yz 
sub 
jmp 


go_right: 
cmp 
jz 
add 
jmp 


go_up: 
cmp 
jz 
sub 
jmp 


Y position 
X position 


dh,12 
di,40 


bh, 0 
ah,2 
i0h 


ah,0 
16h 


ah,left 
go_left 
ah,right 
go_right 
ah,up 
go_up 
ah, down 
go_down 
ah,point 
go_point 
ah,del 
go_del 


ah,esec 

el 
dx,23*256 
an, & 

10h 


d1,0 
el 
ro ES Cae | 


qi,77 
el 
ei.4 


dh,0 
el 
dh,i 
el 


;move the cursor to #,y position 
;code for cursor move 
;interrupt for cursor move 


;set up to read the next keypress 
;keypress read 


;make a rational decision about the users 
;entry. 


;loop back - unknown command 
;put the cursor at lower-left hand corner 
igo back to caller 


;move left if I can 
;in leftmost collumn? 


;yes - go back 
;no -—- subtract one 
;go back 


;move right if I can. 


go; tp if. Is can 


(Continued on next page) 
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Game of Life (Listing continued, text begins on page 42) 


go_down: ;go down if I can 
cmp dh,24 
jz el 
add dh,l 
imp el 
go_point: ;put a live dot where the cursor is -- don't move it 
mov al,live ;it's the live character 
gp2: mov CH ,1 ;one character to write 
mov ah,10 ,;code to write character 
int 10h BO. \E4 
Imp el ;get next command 
go_del: ;delete character at cursor 
mov al,dead 
jmp gp2 ;let go_point do the rest 
Enter endp 
Cls proc near ;Subroutine to clear the screen 


mov ax,6*256 
mov cx, 0 
mov dx,24*256+79 


mov bh, 2 
int 10h 
ret 
els endp 
Count proc near ;Subroutine to count up every cell's neighbours 


;Registers used: 

; DH, DL:: Y,X of current cell being interrogated 

7 DS : Base offset - into screen memory 

; ae : offset for character presently being looked at 
;Outline for each character 

; a Count up number of neighbours 

; ‘- If three neighbours, or if two and cell is live, put 
; a rev on the screen at the attribute position, else 
i put a dark 


; 3. Go to next character 
chk Macro Yy,xXx 

Local. - ¢thi;etts 
offs equ Cxx+yy*80)*2 

Mov cx,Cdi+offs] ;get byte to check 

cmp cl,live i;check to see if this cell is alive 

Frns chi ;nope 

add ai°y.1 iyes - increase neighbour count 
Ee Bp 

endm 

(Continued on page 50) 
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become | 








IMPOSSIBLE? NOT WITH 


SMARTKEY! 


SMARTKEY™ is a unique utility that can redefine any ASCII 
character or function key to become anything you want. For 





SUPER FAST! 

Z80 
DISASSEMBLER 
_$69% 


generates labels at 
referenced locations 







e Output to console, list 
or disk device(s) in any 
combination 














Generates mnemonics 
for CP/M system calls 


Generates Zilog 
mnemonics 












example, “#” becomes “pip b:=a:+.pas[v]”. With a single 2 fi 

stroke, a key can represent a chosen character or string at the Allows user defined e Illegal instructions 
system level or within a program. Instantly. Without rewiring labels generate define byte 
or soldering. ie hae er e Allows define byte, sequence 
SMARTKEY™ is completely transparent to the user. It resides define word and define 

on the top of memory and intercepts calls to the BIOS, trans- space directives ¢ Start and stop at any 
lating system input to whatever you desire. You can even location in file 

change a key definition while another program, such as e COMPLETE cross- © Source or complete 


reference 





WordStar™, is in operation... without interruption! It’s perfect 
for programming, data entry or word processing. 
“EXCELLENT” InfoWorld 
“VERSATILE AND RELIABLE” Lifelines 
“WORKS LIKE A CHARM” Microsystems 
Think of the acceleration in productivity. Think of the 
versatility in keyboard layouts. Think of the possibilities. And, 
best of all, SMARTKEY™ is only $60. 
Ask about SMARTPRINT™, SMARTSCREEN”™, 
and other programs. 
To order or obtain more information, call or write to: 


HERITAGE SOFTWARE, INC. 


2130 S. Vermont Ave., Los Angeles, CA 90007/(213) 737. 7252 


SMARTKEY™ is compatible with all standard versions of CP/M.™ 


listing type output 





e 28 page manual 


SPEED - disassembles atypical 17K.COM file, 
generating a 110K .Z80 file (over 10,000 lines of 
source) and a 52K .XRPF file in less than 1 minute 
45 seconds using standard bios and 8” SS/SD! 
Available for Z80 CP/M and TRS-80 II/ 


__5 LR__Systems— 


1622 North Main Street, Butler, PA 16001 
(412) 282-0864 
Terms: add $2 shipping US, others $5. PA add 6% sales tax. 


Specify format required. Check, MO, Visa, M/C, COD accepted 
Z80, CP/M, TRS-80 TM's of Zilog, Digital Research, Tandy Corp resp. 








SPOOL™ 






Programs copyrighted by FBN Software. 
WordStar™ is a registered trademark of MicroPro, Inc. 
CP/M™ is a trademark of Digital Research. 







A 


Circle no. 38 on reader service card. Circle no. 75 on reader service card. 


Get HYPER about FORTH! 


HyperFORTH™ for the 68000 is here now! 


If you like FORTH, then you'll like it even more now. 
lf you have never tried FORTH because it seemed too primitive, then this system is for you! 


Now you can develop programs in FORTH with the ease that you are accustomed to with more sophisticated operating systems. 
HyperFORTH™ is the result of years of professional FORTH development work started at a major U.S. Telescope Observatory. 


HyperFORTH™ comes in two flavors — 
HyperFORTH™ , which is a conventional screen oriented FORTH system, but with many powerful system extensions, and 


, which is a revolutionary new development in FORTH systems, featuring dynamic file management, a full 


HyperFORTH+™ 
With HyperFORTH+™ your 


screen wordprocessor — like text editor, and all the great features of HyperFORTH™ . 
productivity is improved by several orders of magnitude. 


@ Fully Multitasking ¢ no limits on the number of concurrent tasks 

@ Full Feature 68000 Assembler © supports all opcodes and addressing modes 

@ Standard BIOS I/O interfacing e so that it can be used on nearly any system 

@ Relocatable Code Files ¢ so your application can be compiled and run anywhere 

@ Fastest FORTH available on any machine! e Executes the Sieve Benchmark in 1.8 sec/pass 
(SAGE™ I! Computer — 8MHz 68000, no wait states) 

@ Complete set of utilities 

@ Target Assemblers available for 6809, 6502, Z80, 8088/8086, PDP-11, NOVA, and 1802 

@ Metaforth included with HyperFORTH+™ for the production of ROMmable application code 

@ Extensive Technical Manuals, including source code listings! 

@ Many other advanced features 

@ SAGE ™ version available off the shelf e other versions available on request 

@ Prices begin at just $400 for HyperFORTH™ 


If you need a 68000 to run it on, we can also supply a SAGE™ computer. 


For more information or to order a system, give us a call today! 


ORTHright 
ngineering, Inc. 


Advanced Automation Systems 
7901 East Boojum Street ¢ Tucson, Arizona 85730 ¢ (602) 298-2456 


SAGE is a trademark of 
SAGE Computer Technology 
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New Software from CompuView 


Mainframe Features for Microcomputers 





MODEM-86 
Communications for 
CP/M-86 and MSDOS 


MODEM.-86 is the first truly universal 
communication program. It allows 
you to access a dial-up computer, 
capture and store the data on disk, or 
transfer files back and forth (using 
X-ON/X-OFF). Single and multiple 
files (both ASCII and Binary) may also 
be transferred reliably with error 
checking/correction between any 
system running MODEMS86 or the 
popular MODEM4 and MODEM7 
programs. The help command, 
command menu (expert mode turns 
menu off), and directory display 
simplify operation. 

The unique installation supports 
the IBM PC and Displaywriter, other 
popular 8086 computers and many 
S-100 I/O boards. Finally you can 
communicate with almost any other 
computer. 


Version for CP/M-860rMSDOS_ .$89 
For both CP/M-86 andMSDOS .$120 


V-COM DISASSEMBLER 


COMPUVIEW ADVANCED CP/M-86 
FOR IBM PERSONAL COMPUTER 


Advanced features include built-in horizontal scrolling and screen line editing. 
Includes ability to read/write IBM CP/M-86 and PCDOS disks, emulation of 
popular CRT terminals, a menu driven configuration, higher disk capacity and 
serial file transfer with other computers. Special versions are available to support 
80 track drives, TECMAR, DaVong and other hard disks. 


Hog eset ty) oe eee Rae MRR aR tts. ors ap One Das = $325 
Wi INCI IS PST 0 S's vw pale acd bce aOR Vales bebe eas Foca $425 


V-DISK - An extension to our CP/M-86 intended for software distributors. Allows 
production of common double density disks (Televideo 802, DEC VT180, NEC 
PC8000, SuperBrain, etc.) ontheIBMPC ............... $500, plus $40/format 


V-SPOOL - 16K Software Print Buffer 


Instantly buffers up to 16K of text destined for the printer in memary. Instead of 
waiting for the text to print, you retain complete computer control while the 
buffered text is sent to the printer. Never loses your keystrokes! Your time savings 
will be substantial, and the operation as simple as a single command. Requires no 
hardware or software modifications, just CP/M 2.2. Occupies only 3K of memory 
plus the size of the variable printbuffer ............... 0. ccc cece cece ee eee $79 


BIOS FOR CP/M-86 
AND MSDOS 


Call for details on CP/M-86 BIOS for popular S-100 disk controllers (track 


buffering available) and MSDOS BIOS for hard disks and CompuPro disk 
controllers. 


V-BUG - A Z80 


Labels, ASCIlli, Exceptional Speed 


No other Z80 CP/M disassembler produces understandable source code as 
quickly as V-COM. It is INTEL and ZILOG compatible, and features easy to read 
code with a cross reference table. Best of all, it can create source code with user 
defined labels, storage areas, and ASCII strings. 

Exceptionally speed - disassemble a typical 12K .COM file into a 76K .ASM file 
containing 7500 lines of source code and a 33K cross reference file in under two 
minutes with 8” SD floppies. (About five times faster than others). 

Two user created auxiliary files can specify labels for 8 and 16 bit values andthe 
location of storage areas, tables and ASCII strings. The disassembled code can be 
sent to the console, the disk, the printer, or any combination at once. 

Each package includes a 30 page manual, sample program files and variations 
of V-COM compatible with the TDL, MAC and ZILOG assemblers. Feature for 
no other disassembler at any price evencomesclose. .................... $80 
PAdrigloniy. . ..... <cotuule Gabe a eee ean $12 
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Debugger 


V-BUG is a combination ROM resi- 
dent monitor, I/O handler and 
program debugger. Includes 
diagnostic and simple communi- 
cation capability, flexible 1/O 
assignments, CP/M compatability, 
complete program debugging with a 
disassembler and EPROM burner. 

Commands are specified in full words 
or abbreviations, allowing unlimited 
expandability. Intended for installation 
into 5K of EPROM. Complete source 
Oe WU ens sao 6 inee a $75 





PRODUCTS, INC. 


1955 Pauline Blvd., Suite 200, Ann Arbor, Michigan 48103, (313) 996-1299 


———_™— - 








Now for Concurrent CP/M-86 


VEDIT- The Clear Choice for Programmers 


Pius Features for Fast & Efficient Word Processing 





Increasing your productivity is what a good text editor is 
all about. VEDIT excels by giving you a unique combin- 
ation of extensive and easy to use editing features, 
customizability and complete hardware support. So 
compare VEDIT. Youll find everything you expect in a 
good editor plus a variety of time saving features which 
only VEDIT offers. 


VEDIT is fully user oriented. You can use the function 
Keys on any keyboard, ora layout you are already familiar 
with - simplifying your 
usage and easing your 
learning. While most edit- 
ors lose text if you run out 
of disk space, VEDIT lets 
you delete files or change 
disks. VEDIT ts the result 
of continuous enhancement and feedback from our near- 
ly 4000 users. 


CP/M 
CUSTOMIZABLE 
FULL SCREEN EDITOR 





For program development it surpasses any other editor - 
with more extensive file handling, important command 
macro capability and special features for Pascal, PL/1, 
‘C’, Cobol, Assembler and others. With VEDIT you will 
reduce your program editing time by 30% as compared to 
the best word processor. 


For word processing, VEDIT has word wrap, adjustable 
margins, reformatting of paragraphs, word and 
paragraph functions and simple printing with imbedded 
printer control characters. 


Command macros let you perform editing tasks you 
might otherwise not even attempt. Time consuming tasks 
for other editors (such as translations or extensive 
search/replace on many files), can be done by VEDIT 
without your intervention, even overnight if you choose. 


VEDIT supports all of the new CRT terminals, video 
boards and 8080, Z80 and 8086 computers. We have been 
consistently first to support new computers - first for 
CP/M-86, first for MSDOS. And we will support you with 
any technical assistance you may need. 


For the full story, purchase VEDIT risk free. Evaluate the 
125 page manual and if you are not satisfied, return the 
package (disk unopened) for a courteous refund. 


CP/M and MP/M are registered trademarks of Digital Research inc. WordStar and WordMaster are registered 
trademarks of MicroPro International Corporation Apple Il is a registered trademark of Apple Computer. Inc 
MS-DOS and Softcard are trademarks of Microsoft TRS-80 's a trademark of Tandy Corporation IBM !s a 
trademark of Internationa! Business Machines 


COMPARE VEDIT 


( i 
Feature yen" WN oro? ord? 


True Full Screen Editing Yes Yes Yes 
Edit files one disk in length Yes Yes Yes 
Compact and fast Yes Yes Te) 
OTT ye) F: Me) Mi lal-w-lalemee) lua Yes To) Yes 
Set/Goto text markers Yes Te) Yes 
‘Undo’ key to restore line Yes Te) i Te) 
Automatic Indent/Undent Yes No A To) 
Adjustable tab positions Yes A Te) Yes 
Repeat function key Yes Yes Te 
Text move and copy Yes Yes Yes 
Scratchpad buffers | 10 Only 1 To) 
Load/Save buffers on disk Yes fe) a Te) 
Flexible command mode Yes Yes a Te) 
Multiple command macros Yes i Te) i [e) 
Directory display Yes i Te) Yes 
Koll lolol) (relat Tm uur), | 
files simultaneously Yes a Te) a To) 
insert anather disk file Yes Yes Yes 
Unlimited file handling Yes a Te) a Te) 
Automatic disk buffering Yes Yes Yes 
Recovery from ‘Full Disk’ Yes i Te) Some 
Change disks while editing Yes a Te) a Te) 
Startup command file Yes is To) i Te) 
Program CRT function keys Yes a Te) a To) 
Word Wrap and reformatting Yes a Te) Yes 
Printing TT) ol =) No Extensive 
Print formatting fe) fe) Yes 
Menu driven installation Yes i Te) Yes 
Support newest CRT terminals Yes Te) Ly fe) 
Support smart CRT functions Yes LS To) Some 
OTT} Coluily2-1e)(- ML Coueres: (com: \\(el0] me A-S Te) a Te) 
Available for CP/M-86 Since 1981 4 ? 
Available for MSDOS Since 1981 ? Yes 





Please specify your microcomputer, video board or the 
CRT terminal version, 8080, Z80, or 8086 code, operating 
system and disk format. 

VISA & MasterCard 
VEDIT - Disk and Manual 


POrOGee. 2eO OF BMG cick ee wee ie Oe dene $150 
Por GPO OF IMG IOS oc ints Rena tenlv'a ncastSaw o's $195 
PVR PUMIENS CEI SS ae cece, dag argc iw kw PRN RR Ales air MLS oe $18 


Zenith Z100 and Z89 e DEC VT180 e Televideo 802 
TRS-80 |, Il and 16 © Xerox 820 @ Apple Il Softcard 
SuperBrain e NorthStar e Cromemco e Altos ¢ Vector 
MP/M e CP/M-86 e MP/M-86 e MSDOS e PCDOS 


IBM Personal Computer and IBM Displaywriter 








PRODUCTS, INC. 


1955 Pauline Blvd., Suite 200 e Ann Arbor, Michigan 48103 e (313) 996-1299 
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IN AUSTRALIA DISTRIBUTED BY SOFTWARE SOURCE PTY. LTD. 
89 OXFORD ST., BONDI JUNCTION, SYDNEY - (02) 389-6388 





Game of Life (Listing continued, text begins on page 42) 


Mov ax,O0OBOO0O0OH 


mov ds,ax ;offset value for monochrome display 
mov dh,il jeter t. atch t+ end ge te .23;,78 
mov aid ito prevent wrap-arround 
a a mov ax,160 ;get true offset from ds into screen memory 
mu I dh 
mov ca, dx 
mov ¢ch,00 ;just get dl 
add axK,CKE 
add ax,cx ;ax:=Cdh*804+d1)*2 
mov di,ax ;di:zax 
mov 22,0 ;ax will be used for neighbour counting 
chk -1i,-1l ;count number of neighbours 
chk -~1,+1 
chk 0,+1 
chk +1,-1 
chk +1, Q 
chk +1,+i1 ;test all of the neighbours 
mov ez, tdid ;get byte to check 
cmp al,2 
jz give_life ;life if has 3 neighbours 
cmp cl,live iis it alive? 
jnz give _death ;no 
cmp 21.2 ;he lives if he has 2 neighbours and he is already 
;alive 
jnz give _ death ;nope 


give_life: 


;Make this one alive 


Mov ch,rev 
jmp ez 
give_death: 
Mov ch,dark 
CZ : mov Laid, ex ;put back on the screen 
next cell: 
cmp ot): 78 ;am I at the end of the XK line? 
jz es ;yes 
add 2 i tara | ;nope 
jmp a3 
oe Mov di,i 
cmp qdh., 223 ;am Ioat the end of the Y line? 
Jz c4 ;yes 
add an, 1 ;nope 
jmp et 
aq ret iyes - go home! 
Count Endp 


a_i 
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>This updates the generation on the screen 
;Get screen offset 


Update proc near 
mov ax, OQOBOOOH 
mov ds,ax 


mov bx,24*80*2-2 ;loop through all of the screen But last line 


ul: mov cx,Cbx] ‘line 
cmp ch,rev iis it to live? 
nhs uz ;no 
mov cl,live yes 
jmp u3 
uZ: Mov cl,dead ;no 
u3: MOv ch,dark ;turn off reverse 
mov LiaJ-¢% ;put it back on the screen 
sub bx,2Z ;loop back until done with the screen 
ig ul 
ret igo back to caller 
Update endp 
cseg ends 
stack segment para stack ‘'stack' 
dB 30 dupt('stack "ey 
stack ends 
end End Listing 





Tired of The High Priced Spread? 
try the 
Poor Person's Spread Sheet 


A Programmable Calculator is combined with a Screen Design 
System to yield a powerful spread sheet substitute. 


/ENTIN 
XEROX 


the 
FRIENDLY COMMUNICATIONS SOFTWARE 


that has been EASY TO USE since 1978 


Auto Dial + Answer Turnkey package 

¢ COMMX Smart Terminal and File Transfer 
Mainframe Protocols, CRCi6 + X MOQDEM7 
CONSOLX Remote System Access Control 
Bulletin Board System w/Data File Manager 
Utilities included for KeyMacros + Sort Dir 


Features: 


e User defined fields eliminate square look. Interactive screen definition. 
¢ Simple programming language uses individual fields as variables. No 
row, column or group operations. 
280 fields, 200 step program with conditional statements and branches. 
Online documentation and debug aid. 
8 digit precision, elementary math functions. 
Pre-programmed applications include Real Estate Investment Evaluation, 
Check Book Balance, Calculator, Loan Payments and more. 


Requirements: 


olate lime hie-litle) (mau elliott 
OYae-1i (em Ola ame-lillt.) mae lit-le) (oe tel ae yt) 
CPU License $150 Object or $900 Source 
Klectronic mail subsystem 

Contact Your Local Dealer 


or 
OF.) | Mire) an "a Ce ok) ae ot oD celal) «2 


23914 Mobile, 
Canoga Park, Ca. 91307 
213/348-7909 U.S.A. 


sSHAWKEYE GRAFIX 
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56K CP/M 2.2 or 1.4 with one disk 
80 x 24 video terminal with UP, DOWN, RIGHT, LEFT cursor HOME, 
CLEAR. 


$29.95 (California residents add 6% sales tax), Manual $4.00 
AVAILABLE ON 8 IN. IBM SD, NORTHSTAR DD 
OTHER FORMATS, INQUIRE 
Alan Bomberger 
POOR PERSON SOFTWARE 
3721 Starr King Circle 
Palo Alto, CA 94306 


CP/M is a trademark of Digital Research 
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eries expansions are widely used in 4 + 

Sores: to generate precision Series Expansion 
non-linear functions. The usual 

approaches to series implementation use a Sereen 4.33 

lot of constants. This results in much space 


: QO ( Series Expansion Statement by W.C. Gates 11-21-82 ) 
being used for headers or for stuffing all 1 0 VAL NEXTADD FO FVAL FACCUM 
the constants into arrays, which makes | > 9 VARIABLE POWER 0 VARIABLE NEXTEXP 
checking and adding more constants awk- | 3 ; QVARS FO TO FACCUM © POWER ! ; ( Zero FACCUM, POWER ) 
ward. Also, the mechanics of computing 4 
each series varies — some have only even | § ( NGET does 2 add ... z add n with add+i in NEXTADD ) 
and others only odd exponents, some & : NGET DUP 1+ TO NEXTADD Ca: 
have all exponents, some begin with a 7 . 
oo ae others do a pe ic 8 n SERIES-CONSTANTS name defines the storage space for an) 
iiferent approach, which places 7 array which contains [Cnumber of terms] Cexp. of ist term] ) 


coefficient-exponent pairs into an array 


. i s 4 s = ) 
while preserving readability and access, is CFP coefficient of is term] Cexp of 2nd termif€next coeff.] 


— 
) 
ae et 


shown in screens 38-43, at right. The sf Sete but gaps OK ) 

en ch dae And Avs : 2 - i 
algorithm 1s identical for all series, regard | 15" <BUILDS DUP HERE C! 7 % 1+ ALLOT ( for é-byte floating- ) 
less of first-term constant or exponent 14 DOES> Pirin me 
pattern. This approach, like Dr. Eaker’s as sas p 


Case statement, permits the programmer 
to concentrate on the results rather than 
on the mechanics. 

The first goal is to compactly store Screen # 29 


the data, which consists of floating- 0 ( Series Expansion-- LOAD-CONSTANTS ) 
point coefficients and integer exponents. ee£ ) 
SERIES-CONSTANTS expects on the 2 ( LOAD-CONSTANTS stores the pre-computed coefficients into the ) 
stack the number of terms to be com- | 3 ( space alloted by SERIES-CONSTANTS. These coefficients must be) 
puted. It then allots space for this num- 4 ( on the stack already, together with the exponent for each ) 
ber (1 byte) plus T bytes per fa ois 5S ( Cn exp€n] Ci expi CO expO n add... for example) 
byte for the integer exponent and 6 bytes | 4 ; Lgap-CONSTANTS DUP 1+ TO NEXTADD ( store add of 2nd byte ) 
for the floating-point coefficient. This - sR DUP R> ( DUP-n under address ) 
arrangement limits the number of terms | 9 69 >parrs ( fetch allotted n, QUIT if not same 
and the exponent to 256, which would 9 0 DO CBO pn tines ) 
ee OS alge gou leaned nae ee 10 NEXTADD C! ( store exponent at next byte ) 
the number of terms is stored in the first ii NEXTADD i+ TO NEXTADD Miewidenies A aiae. Aiea 
byte of the allotted space 12 NEXTADD F! { store coefficient ) 
Next, the coefficients and exponents “4 aaa 6 + TO NEXTADD ( point past stored coeff. ) 


are written in the eminently readable for- Ag 
mat shown in Screen 227 (on page 55) 1s 
which puts them on the stack in the reverse 
of the order shown, with the smallest ex- 
ponent on top. Screen 228 contains the Screen # 40 
code to obtain the proper sign and to re- 





Se . Q ( Series Expansion--continued ) 
duce the angle to within less than 360. 1 ( TERM raises z to the power stated in the first byte of each ) 
These constants and exponents are 2 ( term/constant location, starting with the value z*n of the ) 
next loaded into the allotted space 3 ( previous term. 
with the phrase “n NAME LOAD- 4 
CONSTANTS.” The number of constants S (z z*n we. 2 z*€ntx] 2*{ntx] , NEXTADD points to exp. ) 
to be stored is checked against the num- b 
ber for which space was allotted, and the 7 + TERM 
8 NEXTADD Ca NEXTEXP ! ( store target exponent ) 
i i tnt 9 BEGIN 
 Ulandell O& Mot... 10 POWER 2 NEXTEXP 2 = O= ( current exp. = target exp? ) 
by Wendall Cc. ¢ iates | ii WHILE ( if not, ) 
—F . basa a ty 12 FOVER Fx 1 POWER +! ( raise exponent 1, inc. POWER ) 
1 REPEAT ( repeat until current=target, ) 
Wendall C. Gates, PE, Advanced Instru- | 14  FDUP ; ( then FDUP and exit. ) 
mentation Inc., Box 2070, Santa Cruz, i135 --> 
California 95063. OK 
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Screen # 41 

( Series Expansion -- ADD-TO ) 

( ADD-TO fetches the next coefficient and multiplies it with ) 

( z*n on TOS, then adds result to FACCUM, and points 

( NEXTADD to exponent of next term. 

fae a. 2 eee 2 | SOR 

: ADD-TO 
NEXTADD 1+ TQ NEXTADD ( point to coefficent ) 
NEXTADD Fo Fx ( fetch and multiply x z*n ) 
FACCUM F+ TO FACCUM ( add to cumulative total ) 
O06 NEXTADD + TO NEXTADD ; { point to exp. of next term ) 

an 

Screen # 42 

( Series Expansion-- SERIES ) 

( Used as z (name] SERIES ... for value z. ) 

( number of terms is defined in Cname] 

: SERIES 
OVARS =R Fi R> ( set variables to 0, Fi to stack ) 
NGET 0 DO ( get # of terms for loop ) 

TERM ADD-TO ( calculate term and add to total) 
LOOP 

FDROP FDROP ( drop calculation values ) 
FACCUM ; ( leave accumulated value on stack) 
3$ 
8 


Screen # 43 


in nth term) 


( SERIES expansion-- BY-N and BY-EXP , fetching/storing exp. ) 
( BY-N leaves the address of the nth exponent-coefficient pair ) 
( used as .... m NAME-CF BY-N followed by Fd or F'! ) 
: BY-N 2DUP 2 > ( test for n inside array ) 
IF CR ." n is outside array." QUIT ENDIF 
2 + SWAP 7 * + ; ( point to coeff. 
( .. mn NAME-CF BY-EXP leaves the address of coeff. with exp. n ) 
: BY-EXP NGET SWAP 0O FLAG ! (nm to TOS, add+i to NEXTADD) 
BEGIN DUP NEXTADD Cd = ( compare to term exp ) 
IF 1 ELSE. OVER FLAG 2 = ( no more than n terms ) 
IF CR ." Exponent not found." QUIT ENDIF 
Q 1 FLAG +! NEXTADD 7 + TO NEXTADD ENDIF ( next term ) 
UNTIL 2DROP NEXTADD 1+ ; 35 
Screen # 45 
( Derivative Calculations--N derivatives of n-order polynomial.) 
( Method from Hoffman, DDJ April 81, implm by W.C.Gates Dec 82) 
FO FVARIABLE EVAL-POINT 0O VARIABLE POLY-ARRAY 
: GEN. ARRAY 


(Continued on next page) 


exponent-coefficient pairs are stored into 
the space. Only one header is required for 
all the exponents and coefficients. 

Computation is done by SERIES, 
which expects a floating-point value and 
the beginning address of the data space, 
left by NAME-CF of the series. The first 
byte is the number of terms, which is 
used as the DO-LOOP index. TERM 
raises the power of the base value until it 
matches the next stored exponent. ADD- 
TO fetches the matching coefficient, mul- 
tiplies it with the raised base value, and 
accumulates the total in ACCUM. This 
sequence is repeated n times to generate 
and add up n terms. Exponents may in- 
crease in any monotonic pattern. A series 
in half-power exponents, frequently en- 
countered in flow measurement, may be 
generated by taking the square root of 
the base value before using it to compute 
the series. 

In some applications, adaptive control 
for example, it may be necessary to modify 
the series coefficients during operation. 
This feature is provided by BY-N, used 
as ““n NAME-CF BY-N,” which leaves 
the address of the nth coefficient in the 
series. The word BY-EXP similarly leaves 
the address of the coefficient of the term 
whose exponent is 7. 


Where evaluation of polynomial deri- 
vatives is required, a slower and less com- 
pact method is implemented, in Screens 
45-49 (pages 53-55). The polynomial 
coefficients are transferred to a working 
array, with floating-point Os inserted for 
the absent coefficients. This array is then 
processed by CALC.DERIVS, resulting in 
the coefficient values being replaced by 
the n derivative values, including the value 
of the polynomial itself in the first loca- 
tion. The values of the n derivatives are 
then fetched as required using N DERIV. 
For an explanation on the mathematical 
method, see the article by R.A. Hoffman 
in Dr. Dobb’s Journal, April 1981. 

The screens provided are written for 
a floating-point package which uses a 
6-byte format for floating-point numbers. 
For 4-byte formats, change the 6s and 
7s to 4 and 5S. The floating-point coeffi- 
cients are handled as groups of bytes, so 
the program is indifferent to the internal 
sign-exponent-mantissa format. 


DB 


(Listing begins on page 52) 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 239 
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FREE BASIC | Series Expansion 
2-80 BO AR D (Listing continued, text begins on page 52) 





COMPUTER 4 10 DUP ( highest anticipated order ) 
S HERE DUP POLY-ARRAY ! ( beg. address to POLY-ARRAY ) 
omic - : — ee ( store highest order in ist byte ) 
Bs i+ 7 *& 1+ ALLOT ; ( allot space for order+i terms, 
8 ( each of which is exp-byte plus float# ) 
9 
10 : GET.ORDER ( expects add. of coef. array, fetches order, ) 
11 DUP Ca ( which is exponent of last term, to TOS ) 
12 i~ 7 % i+ + 
13 Cd ; 
14 GEN. ARRAY ( allots array when LOADed. ) 
hs BE 
Screen # 46 
QO ( Derivative Calculations -- FILL.ARRAY transfers coeff’s from ) 
1 ( permanent array to working array, filling FO for absent coefs) 
2: FILL.ARRAY ( poly-array-add coef-array-add .... ) 
The MASTER CONTROLLER 3 DUP GET.ORDER ( padd cadd n eee ) 
ee ere 4  >R OVER R> DUP ROT C! ( store order in ist byte ) 
-£- icroprocessor 5 oR 1+ SWAP 1+ R> 1+ 0 ( point to exp.bytes, loop n+1 times) 
ae /O lines; ines geble 6 DO OVER Cd I = ( print exp, test for equal exp*’s ) 
-Keyboard controller: 8279 nay 
12K-EPROM: three sockets for 7 IF DUP I SWAP C: Cif =, move exp. ) 
2708, 2716, 2732 8 1+ DUP & + SWAP ROT i+ DUP 6 + ( and calc. next add’s ) 
2K-RAM: 2114s 9 ROT ROT SWAP OR 
8-Sixteen bit counter timer 10 FQ R> F! SWAP 
channels: one 8253 and one 11 ELSE DUP 7 + SWAP ( if not = stuff FQ) 
AMD 9513 12 DUP I SWAP C! ( point to next work.add) 
2-Serial I/O ports; one Z-80 SIO is i+ >R FO R> F! ( but try again at same loc in source) 
chip. One port is RS-232 
W/DB-25 14 THEN ( array. ) 
1-High speed arithmetic 15 LOOP 2DROP 5; --+ 


processor: AMD 9511 
A bus expansion connector is 
provided Screen # 47 


All this on one board less than O ( Derivative Calculation -- *#FACS multiplies terms by n! ) 
nine inches on a side 1 
Bare Controller Board with Doc. $49.95 2: ¥FACS C empty stack pag sie same ) 
Free eee seeps a cd domain 3 Fi POLY-ARRAY 2 DUP 16 + SWAP ( Fi>stack, point to “2 term) 
Ti sic that can IN an orts, * se y 
PEAK and POKE RAM, CALL eseeitly . ee ee ee ee 
SPONALTORUDSES MACnumoors ine | | 1 SWAP DUP DUP 2R ROR (Dat, add’s to ret. stk) 
numbers. In YR OR > ( I>stk, add’s to ret. stk 
2716. Requires 2k RAM,SIO,8253 (baud gen.) 3 ? 
With the BARE BOARD $14.95 Alone $19.95 7 S->D DoF ( convert I to floating # ) 
TDL monitor AR late SE 8 Fx FDUP R> Fo Fe ¢ x». prev. 7h") x coett, ) 
t trol the MA 
BOARD. Requires 2k RAMSIO,8253 (baud 9 R> Ft ( store product back 
gen.), 4Mhz XTAL. Includes Complete 19 R> 7 + ( point to next coeff. ) 
Listing on a 2732 $69.95 11 Loop 
Beat re te Rear iO aoe ae Go) 12 DROP FDROP ; ( leave stack clean ) 
8255. This arrangement gives 24 I/O lines, 2 13 
spare counter timer channels, and a serial 4 s=> 
channel available after using one counter " 
timer channel as a baud gen. and one serial iS 
channel to talk to a terminal or computer. 
Functions can be expanded by adding 
additional RAM/ROM, I/O and processing OK 
chips. EXPANDABLE SPECIAL $299.99 
OEM & Dealer Inquiries Welcome 
USA & CANADA include $4.95 Screen # 48 
ostage & handling. We shi 
Werld aid. Please inelade S0% of Derivatives sekitpiget aah oases CALC. DERIVS performs calculations ) 
for shipping plus $5 handling 1 ( replacing coef’s with values in working array. ) 
we refund the excess. 2 : CALC.DERIVS ( <point of evaluation--F#> <series-name>..) 
3 >R EVAL-POINT F! ( store X1 value to EVAL.POINT ) 
SPACE-TIME PRODUCTIONS 4 POLY-ARRAY @ DUP R> ( work-add to stack, R> series-array-—add) 
2053 N. Sheffield ra FILL.ARRAY Ca DUP ( coefs into work-arra filling FO’s) 
: aes Ys g 
Chicago, Illinois 60614 & 1- SWAP O - 
312) 327-0391 ot tnea igh eee 
(312) 327- 7 DO DUP DUP I 1- SWAP 


Circle no. 78 on reader service card. 
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8 DO ( limit is ist index, index is ) 


9 I 1+ POLY-ARRAY 2 BY-N Fa ( N-1i minus iteration # ) 
19 EVAL-POINT Fo Fx ( prev.coeff. x point value ) 
11 I POLY-ARRAY 2 BY-N DUP =R ( add above to current coeff) 
12 Fo F+ R> F! 

13 i-.-1 +08? .DRUP 

14 LOOP 

je! XFACS ; ares ( each coef x n factorial) 
Screen # 49 


0 Derivatives Calculation-- DERIV fetches nth derivative value ) 
1 checks for out-of bounds request, non-destructively ) 

ve DERIV 

fe DUP POLY-ARRAY 2 DUP 

4 ROT SWAP Cad > 

=a IF S SPACES ." Requested too high a derivative. " 2DROP 

& 

7 

8 

9 


~~ 7 


ELSE 2+ SWAP 7 & + FQ 
THEN ; oe) 


USE OF DERIVATIVES CALCULATION 
10 Define largest order polynomial to be used: add 1 to order and 
il insert this value into Screen 45, line 4. Then 45 LOAD. 


iS <F#evaluation point> <series-coeff-name> CALC.DERIVS... does 


14 the calculations, N DERIV puts the nth derivative value on 
15 the stack. 


Screen # 227 


OQ ¢( Floating Point-- SINE ) 

1 & SERIES-CONSTANTS SINE-CF ( allot storage space ) 
Z ( coefficients exponents ) 

= 

4 -2.50521084 xX -8 ii ( monotonically ) 
9 2.75573192 X -6 9 ( decreasing ) 
& -1.98412698 X -4 7 ( exponents ) 
7 Bu SiSooooe. Xx =S S 

8 -1.66666667 X -1i 3 

, Fa 1 
10 6 SINE-CF LOAD-CONSTANTS (nm (Cname] LOAD-CONSTANTS ) 
11 ; CSINEJ] SINE-CF SERIES ;: 
: e 
13. ( "X" is used for floating point entry to permit using "E" in) 
14 ( reading hex keypads. Fl is 1.0 floating point. ) 
13: => 


Screen # 228 


QO ( Trig Package -- SINE continued ) 
1 
2 : ANGLE-PREP ( convert to rads if rad ) 
3 FPI F/MOD FABS FIX D->S ( get # of half circles ) 
4 DUP O= IF DROP ELSE >R ( x -1, is - for 2nd half ) 
pe Pi R> Oo DO ( +1 for Ist, -1 for 2nd ) 
6 Fi FMINUS Fx LOOP ( apply sign to angle <180 d. ) 
FJ Fx ENDIF ; ( calculate sine series ) 
8 
9s FSIN 
10 DEG-RAD O= IF DEG>RAD ENDIF ( using degrees? convert >rads) 
11 ANGLE-PREP [CSINE] ; { strip full turns, calc. and ) 
12 ( apply sign, calc. value ) 
Se 
14 
15 
End Listing 
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polyFORTH I 


Level 2 
for the IBM-PC 


@ Multitasking 


High performance multi-tasking OS. Any 
number of background tasks. Concurrent 


Operation of monochrome and color 
monitor. Concurrent printer operation. 


@ Floating-Point 


8087 Math Co-processor support, including 


complete 8087 Assembler plus high-level 


command set for floating point and integer 


arithmetic and transcendental functions. 


= Compatibility 


IBM DOS file interface utility allows access 


to files created under IBM DOS with 
FORTH's improved performance and 
power. 


@ On-Line Documentation 


as well as over 700 pages of supporting 
documentation including Starting FORTH 


by Leo Brodie and 360-page Users 
Manual. 


@ Turnkey-compiler™ 


Utility for making binary turnkey applica- 


tions. Such programs can be resold 
without license fee under specific 
conditions. 


@ A Professional quality Forth 
designed by FORTH INC at only $295. 


Its the Real Thing 


Distributed by 


Forth Technology 


432 15th Street m Santa Monica, CA 90402 


(213) 372-8493 


Call or write for details. Dealers inquiries invited. 
Ordering info: check, credit card or COD 
California residents: add 642% sales tax. 
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t is fairly well-known that among 
: various languages having software- 

implemented floating point, there is 
little practical difference in the speed at 
which number-intensive programs run. 
The reason for this small difference is 
that a large proportion of total program 
run time is spent on the floating-point 
routines that are written in assembly lan- 
guage and are therefore essentially the 
same for every language. Since most lan- 
guages developed under this condition, it 
is doubtful that any need for faster numer- 
ical operations influenced their evolution. 
With the advent of hardware-implemented 
floating point in the form of numeric co- 
processors such as the 8087, 80287, and 
16081, a situation arises in which most of 
the popular numerical languages are inca- 
pable of efficiently utilizing their speed. 
This deficiency is most true of interpreted 
languages such as BASIC and APL. 


In my quest for a faster alternative, I 
have found what I believe to be an ideal 
in an unpopular floating-point language, 
Forth. More specifically, I have found 
Polyforth for the IBM PC to be best for 
floating-point applications because it uses 
the 8087 register stack as an extra Forth 
stack and it includes the 8087 instruction 
set in its assembler. By using the assem- 
bler, it is not unusual for a numerically 
intensive program to run 100 times faster 
in Forth than in standard BASIC. 


From the viewpoint of programming 
convenience, APL is the Rolls Royce of 
numeric languages. The enthusiasm of 
APL users easily matches that of Forth 
users, although each group loves their lan- 
guage for entirely different reasons. APL 
is characterized by syntactically simple 
commands that operate on entire arrays 
rather than on single numbers. Generally, 
the shortest program for performing a 
given task can be written in APL. APL 
does, however, have a reputation for 
being slow. 


I have found that it is not at all diffi- 
cult to write Forth programs that resemble 
APL commands. For example, consider 
the following phrase for performing 
matrix multiplication in Forth: 








Steven A. Ruzinsky, 2110 S. Austin Blvd., 
Cicero, Illinois 60650. 


. ie” BA ee 


Here, A* is the matrix multiplication 
operator and A, B, and C are arbitrary 
conformable matrices. In algebraic nota- 
tion, C=AB. The advantage of Forth 
over APL is, of course, speed. The pro- 
gram represented above will multiply two 
10th-order square matrices in 0.1 seconds. 
APL users are invited to present bench- 
marks for comparison. 


In this first of a three-part series, 
some fundamental Forth matrix utilities 
will be presented. In the second install- 
ment, programs for the classical matrix 
operations such as matrix addition, multi- 
plication, and inversion, plus some equally 
useful but more unusual operations, will 
be presented. The third part will be con- 
cerned with matrix applications. If reader 
response is favorable, more items on ma- 
trix applications could be forthcoming. 


These programs require: (1) the IBM 
PC with more than 64 KB, preferably 
320 KB, of RAM; (2) an 8087 numeric 
coprocessor installed in the empty socket 
next to the 8088 (dipswitch SW1-2 must 
be off); and (3) Polyforth Level 2 for the 
IBM PC from Forth, Inc. 


The Programs 


The fundamental programs are pre- 
sented in screens 207 to 209 (page 57). A 
description of these programs follows: 


a!, a@, etc. — Fast concatenated 16- 
bit variable stores and fetches. These will 
be used within many of the succeeding 
programs. 


matrix — Defines a character string as 
a matrix. Usage example: 


10 20 matrix X 


Here, X is defined as a matrix of 10 rows 
by 20 columns. Such a matrix has the fol- 
lowing properties: 


@ The data contained in the matrix resides 
outside the Forth dictionary and can 
occupy all available memory beyond 
the first 64 KB segment of RAM. 


© Two 64-bit numbers can be stored in 
each matrix element. Thus, X in the 
above example can be considered as 
two interlaced matrices of real numbers 
or a single matrix of complex numbers. 
Operators subscripted with 1 and 2 will 
respectively apply to the first or sec- 
ond of the two “interlaced” matrices, 


whereas unsubscripted operators will 
apply to the matrix as a whole. 


@ Indexing of the matrix elements is 
from (0,0) to (m-1,n-1) where m is 
the number of rows and n is the num- 
ber of columns. 


variable — Defines a character string 
as a 16-byte variable outside the first 64 
KB of RAM. Usage example: 


variable Y 


forget — Erases a matrix or variable 
in a manner analogous to the standard 
Forth word FORGET. Usage example: 


forget X 


dim@ — Retrieves the dimensions of 
the matrix and puts them on the parame- 
ter stack with the number of columns on 
top and the number of rows underneath. 
Usage example: 


> X dim@ 


dim! — Changes the dimension of a 
matrix. The number of matrix elements, 
however, must not increase. Usage 
example: 


200 1’ X dim! 


11, !2, !! — Are matrix element and 
variable stores. !1 and !2 transfer the top 
number of the numeric stack to the in- 
dicated position in the matrix element or 
variable. !! is functionally equivalent to 
12 !1. Usage examples: 

344° 31S add 
0 ae DI Wa 


@1, @2, @@~— Are matrix element 
and variable fetches. Usage examples: 


+ Is. X. @2 
Y @l 


EXC1, EXC — Are exchange matrix 
elements or variables. Usage examples: 


5: LS: Aa Sa 2a ee OR 
Yo 9 eens 


A few final notes: Because floating- 
point numbers and integers are stored on 
separate stacks, their order before an 
operator makes no difference. Thus, these 
phrases are equivalent: 


123,456 654.321 3s Tet! 
PF 7ELO.4I0 -OS42520 A E 
3.) 123,456: 7. 654.321 BP! 


Also, the use of ’ should be commented on. 
This is called “‘tick”’ and it places the dic- 
tionary address of the word following it 


——————_—_—“—_“S—_— OG 
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onto the parameter stack. ’ is for use out- 
side a colon definition. Inside a colon defi- 
nition [’] must be substituted. ’ and [’] 
are used extensively to pass subroutines. 


Mr. Ruzinsky, in an attempt to demon- 
strate the floating-point speed that one 
can achieve with Forth, brought to our 
attention the article ‘“‘Benchmarking the 
8087 Numeric Coprocessor” in the March 
1983 issue of Personal Computer Age. In 
it, G. Scott Owens provided some bench- 
marks for the IBM PC with an 8087 co- 
processor (and some for the IBM and 
other machines without the 8087). The 
fastest times obtained for his floating- 
point routine (a mixture of various func- 
tions such as sine, cosine, and squareroot) 
were: IBM Pascal with an 8087 — 6 sec- 
onds; and compiled IBM BASIC with an 
8087 — 10 seconds for single precision 
and 13 seconds for double precision. (The 
8087 software in those cases was from 
Microware.) Mr. Ruzinsky wrote a Forth 





16 
O ( FPBENCH in Folyforth, Double Prec., 2.625 sec./500 iters. 
i ¢ Note: SIN, COS, EX, #IN, and 4ARRAY are author written 
= ( routines that are not included in standard Folyforth. 
= 
4 : 4ARRARY CREATE 8 * 10 + ALLOT ;CODE W INC W INC © FOF © SHL 
5 O SHL O SHL W O ADD O PUSH NEXT 
& 10 4ARRAY xX LVARIABLE A 
7) POLBOPS (10.2- 30 2 Xk. ba FRUP Ft. Pr FAL EGP: 
S-<¢ -SBr PI 2.4 F/ FDU. SIN? 1 - Xb FDU Cos 
7 Bee ay a Pie feo Pe oo ae FRU Fount 42 x 1." 
ig PBUr EX. 3S ¥- i!’ FDUP LN 6X42! Pine. Fh ES 
FUUF PI Fs 8 xX -4* SSM ewe Oe Oe OL 7S 
2 : FPBENCH CR ." THIS IS A NUMBER CRUNCHING SPEED TEST " 
CR ." ENTER THE NUMBER OF ITERATIONS “ #IN 
COUNTER SWAP O DO SBR LOOF? LOOP COUNTER SWAP 
= FN 1000.0_F/. CR." ELAPSED TIME: =". SF. 
Figure 1. 
Floating-point benchmark routine in Forth. 
version on his own system of the floating - Reader Ballot 
point routine used by Mr. Owens and ob- Vote for your favorite feature/article. 
tained a time of 2.625 seconds. His Forth Circle Reader Service No. 241 
routine is printed in Figure 1 (above). 
DD, (Listing begins below) 





Fast Matrix Operations text begins on page 56) 


207 LIST 


ie 


VARIABLE a 
VARIABLE b 
VARIABLE c 
VARIABLE i 


VARIABLE j 


“MO os OF 0 Fe ty Pe 


16 VARIABLE k 


12 VARIABLE m 


14 VARIABLE n 


208 LIST 


: here there) 


Co eee 


¢ 


? 


Oo O00 “om Of & td hye 


fone 


VARIABLE adr 


CODE a! O FOF a STA NEXT 
CODE ad a LDA O PUSH NEXT 
CODE b!' 0 POP b STA NEXT 
CODE ba b LDA O PUSH NEXT 
LUBe !° 0. POP c-Si NEXT 
CODE cd c LDA OG PUSH NEXT 
Cove i! 0 POP i . STA NEXT 
CODE i® i LDA O FUSH NEXT 
CHE: 3! 0 POP: 3° STA. NEXT 
CODE 39 j LDA O PUSH NEXT 
CODE k! 0 POP k STA NEXT 
CODE ka k LDA O PUSH NEXT 
CODE m! 0 POP m STA NEXT 
CODE ma m LDA © PUSH NEXT 
COBE n! 0 POP n STA NEXT 
CODE nan LDA O PUSH NEXT 


Matrix Defining Operators ) 
VARIABLE ¢here) 1 there) ! 
: ae 
: forget —’ ABORT" 7?" £=B/H — DUP 7S H 232+ @2 WITHIN 
CAN’? T H ! CURRENT CONTEXT 2+ DO I BEGIN 
» DUP HERE < UNTIL I ! 2 /LOOP 3 (here) ! ; 
allot here + (here) ! ; 
Yariable here CONSTANT 1 allot ; 
matrix CREATE here , SWAP 2DUP , , * allot ;CODE O POP 
1 PoP 


- Wd) 1 ADD 4 W) MUL 1 9 ADD O PUSH NEXT. 
™~ CODE adra@ adr LDA O PUSH NEXT 


(Continued on next page) 
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Fast Matrix Operations (Listing continued, text begins on page 56) 


ii ~ CODE adr! GO POP adr STA NEAT 
12> * CODE dima W POF W >) O MOY adr STA 2 WH) O MOV O PUSH 
13 4 W) Oo MOY O PLISH NEXT 
14 ~ CODE dim! W POF W) O MOV adr STA 0 FOF 0 4 W) MOV O FOP 
psa O 2 W) MOY NEXT 
JF at 

O ¢€ Matrix Element Fetch, Store and Exchange } 

1 CODE ‘1 6 DS SSG DS POPS R64 465520 FSTP O DS LSG NEXT 

2 CODE @1 0 DS S56 DS POPS R64 65520 FLD 0 DS LSG NEXT 

=> CODE ‘2:0 DS SSG DS POPS R64 65528 FSTP © DS LS6G. NEAT 

4 CODE a2 0 DS SSG DS POPS R64 65528 FLD 6 DS LSG NEXT 

5S CODE '' 0 DS SSG DS FOPS R64 65528 FSTP R64 65520 FSTP 

& O DS LSG NEXT 

7 CODE 22 0 DS SSG DS POPS R64 65520 FLD R64 65528 FLD 

a oO DS LSG NEXT . 

9 ~ CODE EXC 455270 # W MOY O DS SSG DS FORPS R64 8 W) FLD R64 

10 Wo) FLD 2? DS SSG DS FOPS R464 8 W) FLD R64 W) FLD 1 DS S56 
ba ? DS LSG R44 WH) FSTF R64 8 W) FSTF 1 DS LSG R64 W) FSTP 
iz R64 8 W) FSTP O DS LSG NEXT 
13 CODE EXCi 65570 # W MOV Oo DS SSG DS POPS R64 W) FLD 2 DS S56 
i4 DS POPS R464 W) FLD 1 DS SSG 2 DS LSG R64 W) FSTF i DS LSG 
ia R54 W ) FSTP 0 DS LSG: NEXT End Listing 


































Workman & Associates 
112 Marion Avenue, Suite 3B A 

Pasadena CA 91106 DN 
(213) 796-4401 ™, 


CP/M FILE ENCIPHER/DECIPHER COMMAND 





a es ee es 2 ee ee ee ee ee ee ee 
THE TRANSPORTER._Now your CP/M machines can 

have one-sided conversations! One copy of the 

Transporter (on the sending machine) will transfer 

any file from one computer to another. It requires 

matching ports (serial or some parallel) or modems. 

Detailed manual included. The Transporter is $69.50. 


"A Primer on Pascal for CP/M Systems" 
Full of examples and suggestions to make learning 
Pascal easier. Contains both a disk and a detailed 
manual with a glossary and an error-correcting guide. 
Pascal Primer -- 5-1/4" $89.50 -- 8" $79.50 


The Pascal Primer is for either Pascal/M or MT+. 
The programs are from Grogono’s “Programming in 
Pascal’ and Kernighan & Plauger’s "Software Tools 
in Pascal’, $20.00 each (not included). 


BDS’s C COMPILER 
Leor Zolman’s BDS C Compiler -- generates compact 8080 
code FAST! Comes with a 200-page manual and example 
programs. Other disks of useful C programs will be 
available soon. $130.00 from W & A 


Soe 2 Oe 2 ee 8 ee 2 es es 

Disk formats include: S.A pple CP/M. NorthStar, "Osborne, co 
KayPro, Xerox, Monroe, and Otrona. All U.S. orders are 
postpaid. Catalog on request. 


SIMPLE - Use QCRYPT as a command in any CP/M 
system to quickly encipher/decipher any specified 
file. Protect sensitive business data and records, 
development work, and even other commands. 


SECURE - QCRYPT allows user to choose from over 7 
trillion unique keys. At one key per second, 


exhaustive trial against an enciphered file would 
require over 200,000 years! High entropy algorithm 
makes derivation of keys from samples impractical 
even given full knowledge of the algorithm. 


STABLE - Reliability exceeds that of weaker but more 
costly file enciphering systems elsewhere. Your files 
may always be deciphered by any other CP/M system 
running QCRYPT, provided the key is known. 


QCRYPT at just $65 postpaid (including documentation 
and command on 8" SSSD diskette) should be at work 
on YOUR system. PM-86? Same price: 


Cc 
QCRYPT (tm) Tesseract Associates &. ; 
CP/M (tm) Digital Research, Inc. a a 


TESSERACT ASSOCIATES 
STINSON LAKE ROAD 


RUMNEY. NH 03266 (USA) 
(603) -766-9561. (617) -964-6740 








, Circle no. 82 on reader service card. 
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mms 7°" 


SINGLE SIDE SINGLE SIDE 
SINGLE DENSITY SINGLE DENSITY 


W/HUB RING SOFT, SOFT 
10 OR 16 100% CERTIFIED OR 32 
2 YEAR WARRANTEE SECTORS 


8° ES 2” 


ml $79" 


100% CERTIFIED 
2 YEAR WARRANTEE SECTORS 


amas 92°" 


SINGLE SIDE SINGLE SIDE 
DOUBLE DENSITY DOUBLE DENSITY 


W/HUB RING SOFT, SOFT 


100% CERTIFIED OR 32 
2 YEAR WARRANTEE SECTORS 


100% CERTIFIED 10 or 16 
2 YEAR WARRANTEE SECTORS 


S99" | GH $09" 


DOUBLE SIDE DOUBLE SIDE 
DOUBLE DENSITY DOUBLE DENSITY 


W/HUB RING SOFT. SOFT 


100% CERTIFIED 10 OR 16 100% CERTIFIED OR 32 
2 YEAR WARRANTEE SECTORS 2 YEAR WARRANTEE SECTORS 


@0-00 80-38 


00-289 SO SS 


e Minimum order 10 
Packed 10 boxes of 10 diskettes with sleeves and labels 
Quantity discounts — 100 deduct 5%, 
1,000 deduct 7%, 5,000 deduct 10% 
Add $5.00 per case 5'4”, $7.00 per case 8” (case of 100) 
For shipping and handling Continential U.S.A, U.P.S. ground. 


@e-00 


VINYL STORAGE PAGES DISK DRIVE HEAD 
514" or 8” 10/$5 CLEANING KITS 
SNAP-IT POWER CENTER * “ Prevent head 
Turn one outlet into six a 4 crashes and 


@ Shock-safe : 
@ Unbreakable ensure error-free 


@ 15 Amp Circuit Breaker pele ie 
@ Lighted On-Off Switch $19.95 374" or 8 


HARDHOLE DISK PROTECTORS SFD C- 10 CASSETTES . . 10/$7 


Reinforcing rings {All cassettes include box and labels.) 


of tough mylar Get 8 cassettes, C-10 
protect disk hole Sonic, and Cassette/8 
edge from damage. ne OF Library-Album, 
Applicators $3 as illustrated, 
Hardhole Rings (50) for only 


@0-2e0 e0-30 


20-68 


We also stock at FANTASTIC low prices 
LIBRARY CASES i MAXELL 3M DYSAN 
8” Kas-sette/10....... $2.99 BASF OPUS 


5%" Mini Kas-sette/10... $2.49 Floppies, Tape, Data Cartridges, 
Data Cassettes, and Disk Packs 


e Written purchase orders accepted from government 
agencies and well rated firms for net 30 day billing. e International orders 
accepted with a 15.00 surcharge for handling, plus shipping charges. e C.0.D. 
requires 2 10% deposit. e We accept Visa, Mastercharge, Money Orders, and 
Certified checks. Checks require bank clearances. e All shipments F.0.B. San 
Diego. © Minimum shipping and handling 2.00, minimum order 10.00. e California 
residents add 6% sales tax. Prices and terms subject to change without notice. e 
All sales subject to availability, acceptance, and verification. e All sales are final. e 
Satisfaction guaranteed or full refund. 


{ 
{ 
a 
' 
: 
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¢ 
: 
‘ 
‘ 
5 


Oy Fy FI CT CY a a a a A 


We also offer printer ribbons, printwheels, type elements, 
equipment covers, power consoles, paper supplies, storage and 
filing equipment, furniture and many other accessories for word 
and data processing systems. Write for our free catalog. 


ABC 


DATA PRODUCTS 
(FORMERLY ABM) 


vel 


Orders Only 
800-854-1555 


Tabcelgaat-varesa! 


619-268-3537 


Modem Hotline (Anytime) ITT TELEX 4992217 


619-268-4488 8868 CLAIREMONT MESA BLVD 


Exclusive Monthly Specials SAN DIEGO, CALIFORNIA 92123 
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All C Compilers 
are Not Created 


“? 
wars? 














Compare Introl-C/6809 
with any other C being offered 
for the MC6809. 


The differences may really 
surprise you! 

Introl-C is a powerful software development 
tool designed for the professional. It supports 
the full language, is truly easy to use, and 
produces remarkably efficient object code for 
the 6809. In fact, code generated by Introl-C 
typically is only half the size and twice as fast as Hh 

+. y] 






code produced by other C compilers on the ‘ai 

market! As we said, all C compilers are not ua 

created equal. Introl-C/6809 delivers what Nig 

others only promise. y y 
y 


Resident Introl-C compilers for: 
OS9*, FLEX**, and UniFLEX**, $375. 
Cross compilers for: 
PDP-11*** hosts (Unix****), $1500. 


Trademarks: 
*Microware Systems, **Technical Systems Consultants, 
***Digital Equip. Corp., ****Bell Labs. 
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CORPORATION 


647 W. Virginia St. 
Milwaukee, WI 53204 
(414) 276-2937 
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terest in using the DDT Trace function 

to examine the operation of BDOS 
functional calls. The last word on the sub- 
ject (February 1983, page 11) was, “This 
will never work no matter how clever one 
is....’ Who could resist a challenge like 
that? 


: etters to Dr. Dobb have shown an in- 


Demonstrating the Problem 


Let’s try to Trace through a very 
simple BDOS function and see what the 
problem is. BDOS function 31 is a good 
candidate for this because it only fetches 
the disk parameter address and puts it in 
the H/L register pair. The test program 
(TRACE.ASM — shown in Listing 1 below) 
contains the minimum elements necessary 
to demonstrate the problem. 


(1) It initially clears the H/L pair (so we 
know the non-zero result was not 
left over from a previous run). 


(2) It calls BDOS function 31. 


(3) It executes an instruction (NOP) 


after it returns. 


(4) It has an easily recognized end. 


The DDT session is separated into 
procedures to make it easier to follow. 

In Procedure 1 (page 61), I booted a 
48K system (system size is important) 
and used DDT to get the test program in 
memory. The List command disassembled 
the object code in memory, showing that 
the program was actually there. The Go 
command executed the program (from 
100 to 108) and the Examine (X) com- 
mand showed that the H/L pair had B47E 
in it when the test program was finished. 
B47E is in fact the address of the disk 
parameter header for this particular CP/M 
configuration. If you run this program on 
your system, you will probably get a dif- 
ferent number in the H/L pair. If you are 
skeptical, you can examine memory begin- 
ning at that location and verify that it is 
actually a disk parameter header. 

The G100,100 command gets the 
program counter back to the beginning of 
the program, and TOC is the command to 
Trace twelve lines (DDT thinks in hex). 
Notice that the H/L pair was cleared, 
Register C was set to 31 (1F hex), and 
the BDOS routine was called. 


by Do-While Jones — 


Do-While Jones, 324 Traci Lane, Ridge- 
crest, California 93555. 








Location 0005 always contains ajump 
to the BDOS section of CP/M. Since the 
location of BDOS depends upon memory 
size, this address will vary depending 
upon system size. Whenever you boot the 
CP/M system, it will always make sure 
the jump command at 0005 is set to the 
proper address. In the 48K system I was 
using, this address was 9500. The Trace 
display showed the jump to 9500, and 
the first few instructions in BDOS, but 
the line following JMP A506 showsa NOP. 
Closer inspection shows the program 
counter appeared to go from 9BA7 directly 
to 0108. I say ‘‘appeared” because the 
intermediate steps really were executed. 
We can tell this by the fact that the H/L 
pair has the right answer (B47E) in it. 

The invisible gap between 9BA7 and 
0108 is the sequence of instructions that 
some readers are interested in seeing. 


To Trace or Not To Trace... 
Although it is possible to Trace 
through BDOS, I do not recommend that 
you do it routinely. DDT is designed not 
to Trace through BDOS functions for 


your convenience. If you defeat this fea- 
ture frequently, you will just make your 
own life more difficult. 

Inexperienced programmers use Trace 
at the first sign of trouble. They hit 
control-P, T100 and start looking through 
reams of paper that slowly emerge 
from the printer. That is not a very effi- 
cient way to debug a program, especially 
if it contains something equivalent to 
“FOR I= 1 TO 500.” 

The easier way to debug a program 
is to use break points. Use the ““G”’ com- 
mand to execute a small portion of the 
program. When DDT finishes executing 
that section, it will return with the “‘*”’ 
prompt, which is your cue to use “‘X”’ to 
examine registers or ““D” to display mem- 
ory. If you have written your program in 
modular form, there will be longer places 
to stop and examine the results. For ex- 
ample, if you have a module which is 
supposed to convert hex numbers into 
BCD form, then you can stop the pro- 
gram just before the routine to see what 
hex number is going into the routine and 
see if the BCD number that came out is 


Simple Program for 
Trace Demonstration 


TRACE, ASM 
16 FEBRUARY 1983 
DO-WHILE JONES 


THIS TS USED TO DEMONSTRATE HOW TO TRACE THROUGH 


BDOS CALLS. 


GLOBAL ADDRESSES 


BDOS 


ORG 188H 


B18 218880 
@i@s @EiF 
G15 CDa58@ 
Bite 88 
8189 C3291 


LXT H@ 
MVI C,31 
CALL BBOS 
NOP 

SELF: JMP SELF 


818C END 


EQU 


@005H 


CLEAR THE H/L PAIR 

GET ADDRESS OF DISK PARAMETERS 
USING BDOS COMMAND 21 

DUMMY OP CODE 

DO FOREVER LOOP 


“=e =. ~e «we ee 


Listing 1. 
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correct. Don’t Trace through the whole 
routine unless the BCD answer is wrong. 
Then it makes sense to Trace to see why 
it gave the wrong answer. If you try to 
use “‘G”’ to execute a portion of a routine 
and never see the ‘‘*’’ prompt, it means 
the program has gone to ‘“‘never-never 
land.’ Then you might want to Trace to 
see where you PUSHed without a POP in 
a subroutine, or where you selected the 
wrong condition for a conditional jump. 
But it is best to try to isolate the error 
using break points before using Trace. 


Do-While’s Rule: 
Never Trace more than you have to. 


DDT Saves You From Yourself 


The good folks at Digital Research 
put a lot of thought into the DDT pro- 
gram. They foresaw users trying to Trace 
through a program which contains a 
BDOS call to output to the console (or 
worse yet, read a sector). They knew how 


frustrated the user would be if the screen 
filled up with dozens of lines of BDOS 
code. On those rare occasions when I 
have resorted to Trace, and have happened 
to Trace through a BDOS command, I 
have been very grateful that DDT turned 
off the display until the BDOS function 
returned control to my own program. 

Normally you should not care what 
the BDOS does internally. All you care 
about is that the return parameters are 
correct. You can find that out by putting 
a break point immediately after the 
BDOS call. Then you can examine regis- 
ters (or memory) to see what it did, with- 
out having to try to figure out how it did 
it. Be sure to check the flag register. 
There are times when BDOS returns with 
the accumulator = 00, but the zero flag 
is not set. Since the JZ (Jump on Zero) 
instruction looks at the zero flag rather 
than the contents of the accumulator, 
your program may not branch to the 
desired routine unless you checked the 
zero flag with ANA A. 


Procedure 1. 


Is There Ever A Proper Time 
to Trace BDOS Calls? 


There has only been one time that I 
ever found it necessary to Trace a BDOS 
function. I wrote an extension to CP/M 
2.2 which allowed data to be displayed 
simultaneously on the console screen and 
stored in a disk file. In this case I tried to 
call some BDOS routines from BIOS, and 
the program crashed because the BDOS 
is not reentrant. I needed to find out 
why it was crashing and how to avoid it. 
I Traced through enough of BDOS to find 
out what prevented the subroutine from 
returning, and fortunately I was able to 
find other entry points which allowed me 
to use the BDOS subroutines to write a 
sector and close a file. Procedure 2 (page 
62) shows the method I used. 


The Trick — 
Two CP/M Systems at Once 


After demonstrating the problem 
using Procedure 1, I went back to the sys- 


48K VERSTON 2.2 CP/M 
FO DDT TRACE, HEX 
BOT ‘VERS 2.2 
MEAT PE 
MLC BAe 
~{ 1a, 1@e 

MA) LxI HH, @aae 

Vil@S  MVI- C.F 

MiGs CALL @aas 

O18 NOP 

Wiis IMP. - O19 

RALAC 
~“O1@, 129 
#ALAS 
so x 
MO@ZIM@E LT A=7E B=B480 D=8008 H=BAVTE S=8190 
-~B188, 12 
#21 OQ 
~ Te 
COZIMM@ELIO A=7E B=B400 D=9808 H=B4A7E S=8198 
COZIM@ELI@ A=7E B=B400 D=8800 H=8000 S=9100 
CO@ZiMBELI@ A=7E B=B4iF D=O8800 H=8Ga0 S=0108 
C@ZIM@ELI@ A=7E B=B4iF D=99@0 H=8800 S=@8FE 
COZIMOELI@ A=7E B=B41F D=O808 H=8200 S=@aFrE 
C@ZIMBELIA® A=7E B=BAIF D=@900 H=f000 S=AOFE 
C@ZIMBELIO A=7E B=B41F D=820@ H=8910S S=O0FE 
C@ZIMBELI@ A=7E B=B4iF D=0900 H=9198 S=@OFE 
CMZIMBELI@O GA=7E B=B4iF D=2000 H=40900 S=@OFE 
COZIMBELI“O A=7E B=B40] D=9000 H=B4A7E S=9108 
COZIM@E LI A=7E B=B4i40 D=8000 H=B47E S=8192 
COZIMOETT@ A=7E B=B400 D=8808 H=B47E S=8188 


“GY 
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P=109 JMP 109 
P=Ai@@ LXI H, Baa 
P=9105 MVI - C.1F 
P=4105 CALL @@05 
P=4005 JIMP 958g 
P=950@ JMP SBA 
P=9BAS XTHL 

=TBAS SHLD A44A 
P=9SBAG XTHL 

P=9BA7 JMP AS@E 
P=@1@8 NOP 

P=@109 JMP @1@9 
P=4109 JMP @109+0109 
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tem and PIPed the TRACE.HEX file over 
to another disk, which had a different 
size CP/M system on it. I had an old disk 
with a 32K system on it that I had SYS- 
GENed when I only had 32K of memory 
in my system. So, without turning off the 
power, I cold-booted this 32K disk. This 
put a 32K CP/M system in memory, 
while leaving a copy of the 48K system 
there, too. 

Procedure 2 gave results that were 
similar to Procedure 1, but they were not 
identical. The H/L pair returned the value 
747E, which is exactly 16K lower than 
B47E because the 32K system is 16K 
smaller than the 48K system. Also, the 
JMP instruction at location 0005 sent the 
program to 5500 instead of 9500. 

The BDOS routine at 9500 is still in 
memory but DDT doesn’t know that. So 
look what happens if we change CALL 
0005 to CALL 9500. We can reset the 


O)PIP Bs=TRACE. HEX 


program counter to the beginning of the 
test program with G100,100 and Trace a 
bunch of lines (36 hex is enough). 

This time it’s all there! After the JMP 
A506, the program counter goes to A506, 
rather than skipping down to 0108. 


The group of instructions up to P= 
A546 PCHL is the BDOS entry routine 
which stores parameters, sets up the 
BDOS stack, and jumps to the selected 
BDOS routine. BDOS function 31 itself is 
only three lines. 


LHLD B2BB 
SHLD A845 
RET 


The nine lines after that are the BDOS 
exit routine, which restores parameters, 
restores the user stack, and fetches the 
answer from A845. 

The desired Trace is shown in Pro- 
cedure 3 on page 64. 


Procedure 2. 


Why It Works 


Using a second CP/M system does 
two things that permit a successful Trace 
of BDOS functions: 


(1) DDT uses the 32K BDOS stack and 
32K BDOS reserved memory loca- 
tions while the test program is using 
the 48K BDOS stack and reserved 
memory locations. 


DDT inhibits the display when the 
user program counter is in the 32K 
BDOS, but it doesn’t care that the 
program counter is in the reserved 
area of the 48K BDOS. Therefore it 
permits the program flow to be dis- 
played. 


(2) 


There’s nothing really magical about 
48K and 32K. You could use any two 
CP/M systems, providing they don’t over- 
lap. You probably have a 20K (or 24K) 


22K” VERSTON: 2.2 CP 7M 
GO DDT TRACE. HEX 
DOT. VERS 2.2 
NEAT. Po 
Mil MAG 
~L1@G, 186 

Wig $LXI HH, BBOe 

Dies AVL: Lyte 

OigS CALL 8845 

Bige NOP 

Bigs: IP Oi as 

Bie 
-~618@, 109 
tQ 13 
aa! 
CO@ZIM@ELIO A=7E B=7400 D=8000 H=747E S=810e 
-~G1 82, 102 
#21 BQ 
za R's 
COZIMBELI@ A=7E B=74808 D=OAOM H=747E S=B1 ey 
COZIMBMELI@O A=7E B=74808 D=-@8G0 H=80@W S=-8108 
COZIMBELI@® A=7E B=741F D=8008 H=8000 S=0188 
COZIM@ELI@ G@=7E B=741F D=-@280 H=2000 S=O0FE 
COZIMBELI@ A=7E B=74iF D=8008 H=88O S=GreE 
C@ZIMBELI@M A=7E B=741F D=-@080 H=@000 S=Q0FE 
CO@ZiIM@ELI@O A=7E B=741F D=880G H=80105 S=QareE 
CO@ZIMBELI® As7E Be74iF D=8000 H=8185 S=@0FE 
COZIMBELTI@ A=7E B=74iF D=8082 H=O0000 S=OOFE 
COZIMNBELIO A=7E B=7408 D=8OGB0 H=747E S=8180 
CQOZIM@ELIR A=7E B=7400 D=8008 H=747E S=41 88 
COLIMBMELI@ A=7E B=7400 D=OAGG H=747E S=A1 ee 
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P=@81@89 JMP @1@9 
P=@18@ LXI HH, GHOe 
P=91@2 MVI C.,1F 
P=@1@5 CALL @@05 
P=90@5 IMP 3508 
P=5500 JMP SEAS 
P=SBA2 XTHL 

P=SBA2 SHLD 644A 
P=SBAEB XTHL 

P=SBA7 JMP 623506 
P=Q9105 NOP 

P=Q1i@9 JMP @1@9 
P=@1@%9 IMP @1@9+0189 
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Prices 5/1/83 











| WILL BEAT ANY COMPETITOR'S PRICE 


PROVIDED IT IS NOT BELOW MY COST. 


DMA or SIO/O 


TRY TO BEAT THESE IC PRICES: 


DYNAMIC RAM 


64K 200 ns $4.99 
64K 150 ns 5.09 
64K 120 ns 5.90 
16K 200 ns 1.35 
EPROM 
2764 300 ns $7.25 
2732 450 ns 4.15 
2716 450 ns 3.20 
2532 450 ns 4.60 
STATIC RAM 
6116P-3 150 ns $4.10 
2016-LIKE 150 ns 4.40 
2114 200 ns 1.45 
Z80A FAMILY 
CPU, CTC, or PIO $3.39 
DART 8.25 


MasterCard/VISA or UPS CASH COD 















Factory New, Prime Parts 


MICROPROCESSORS UNLIMITED 


24,000 South Peoria Ave. 
BEGGS, OK. 74421 


(918) 267-4961 


Prices subject to change. Call for volume prices. Subiect to available quantities. 
Shipping & Insurance extra. Cash discount prices shown. 
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\ 


At Key Micro Systems, Inc. 
we deliver simply the best 
S-100 computers for expand- 
able multi-user or single 
user systems. You can run 
any mix of 8 or 16-bit soft- 
ware on any terminal. And 
our use of the leading, high- 
est quality peripherals com- 
bined with the power of 
CompuPro boards assures 
you of complete system 
confidence. 


Whether you need an estab- 
lished system, peripheral 
support, or a system con- 
figured to your particular 
specs, we deliver. On time. 
Every time. 





MICRO SYSTEMS INC. 
Y ( p 
aaiiorizad om uPro 


SYSTEMS CENTER 


1606 Nooseneck Hill Rd., PO Box 715, Coventry, RI 02816 - 401/828-7270 
822 Boylston St., Suite 201, Chestnut Hill, MA 02167 - 617/738-7305 
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One of the finest implementations of the FORTH language. 
Field tested and reliable, UNIFORTH is available for the IBM 
PC as well as most systems with 8” disks and the following 
processors: 

8080 PDP-11 

Z80 68000 

8086/8 16032 


As a task, UNIFORTH is compatible with and supports all 
features and file types of the CP/M, CDOS, MS-DOS and DEC 
operating systems. As an operating system, UNIFORTH will 
function “‘stand-alone” on most commercial microcomputers. 


The FORTH-79 Standard language has been extended with 
over 500 new words that provide full-screen and line-oriented 
editors, array and string handling, enhanced disk and terminal 
1/O, and an excellent assembler. Detailed reference manuals 
supply complete documentation for programming and system 
operation, in an easy-to-understand, conversational style using 
numerous examples. 


Optional features include an excellent floating-point package 
with all transcendental functions (logs, tangents, etc.), the 
MetaFORTH cross-compiler, printer plotting and CP/M file 
transfer utilities, astronomical and amateur radio applica- 
tions, word processing, etc. 


Compare these features with any other FORTH onthe market: 


@ Speed and efficiency 
@® Variety of options 


@ Ease of use 
®@ Documentation quality 


You'll find UNIFORTH is superior. 


Prices start at $35. Call or write for our free brochure. 


Unified Software Systems 
P.O. Box 2644, New Carrollton, MD 20784, (301) 552-1295 
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A Professional Quality Z80/8080 Disassembler | 


REVAS Version 3 


Uses either ZILOG or 8080 mnemonics 
Includes UNDOCUMENTED Z80 opcodes 
Handles both BYTE (DB) & WORD (DW) data 
Disassembles object code up to 64k long! 
Lets you insert COMMENTS in the disassembly! 


A powerful command set gives you: 


INTERACTIVE disassembly 
Command Strings & Macros 
On-line Help 
Calculations in ANY Number Base! 
Flexible file and I/O control 
All the functions of REVAS V2.5 


REVAS: 


Is fully supported with low cost user updates 
Runs in a Z80 CPU under CP/M* 
Is normally supplied on SSSD 8” diskette 


Revas V 3...$90.00 Manual only...$15.00 
California Residents add 6%% sales tax 


REVASCO 
6032 Chariton Ave., Los Angeles, CA. 90056 
(213) 649-3575 


“CP/M is a Trademark of Digital Resaerch, Inc. 
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‘distribution system” that you could use 
in conjunction with your full-size system. 

It doesn’t matter which you load 
first if there is sufficient space between 
the systems. But if the systems are nearly 
of equal size (like 24K and 32K), you 
might have trouble if you load the 
smaller one first. DDT moves itself to a 
position just below the CP/M system, so 
if it tries to put itself just below a 32K 
system, it might land on top of the 24K 
system. If you boot the bigger system 
first (as I did in the example) and then 
DDT from the smaller system, DDT will 


-S1 06 

Gige O85 Os 

Qi@7 O88 35 

Gigos MO . 

-~L1i@@, 1@B 
O18 Lx 
2192 MVI 


H, GIA 
C,1iF 


be below the smaller system, so it can’t 
interfere with the larger system. 


They Said It Couldn’t Be Done 


The previous letters to Dr. Dobb said 
that it is impossible to Trace in the BDOS 
because it is not reentrant, so “‘attempts 
to trace through BDOS will result in the 
saved values being overwritten and de- 
stroyed by the recursive BDOS calls 
made by the debugger. This tends to send 
you to a tight loop in never-ever land.”’ 


Procedure 3. 


This is true. But just because something 
is impossible doesn’t mean that it can’t 
be done. Every good stage magician 
knows that. If you can create the illusion 
that it is being done, that is good enough. 


DD 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 243 
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@1i@s 
Wigs 
Bigs 


CALL 
NOP 
aeP 


9508 


@ig@dy 


Qiac 


~G1i@@, 148 
+2) 1 OY) 

an 
MOZIMOELIO 
COZIM@ELIS 
COZIMBELIO 
COZIMMELT2 
COZIMBELIOS 
COZ IMBELTIO 
COZIMBELT2 
COZIMBE1 1B 
COZIMBELI2 
COZIMBE LIA 
COZ IMBEL I 
COZIM@ELIO 
COZIM@E TIO 
COZIMBETT 
COZ IMME LIS 
COZIMN@E1T 
COZIMBELI@ 
COZIMBELIO@ 
COZIMBELTS 
C@ZimM@e1LTo 
COZIMBEL IS 
COZIM@M@ELTS 
COZIMBELIO 
CQOZIM@ELIO 
COZIMBELIO 
CQaZIMBELI2 
CizO@Mieole 
CiZQMiE@lg 
CiZAMLE@le 


A=7E 
A=7E 
A=7E 
A=7E 
A=7E 
A= 7E 
A=7E 
A=7E 
A=7E 
A=7E 
A=7E 
ASTE 
A=7E 
A=O2 
A=O2 
A=92 
A=O2 
A=BQ 
A=22 
A=OQ 
A=92) 
A=OA 
A=OZ 
A=AA 
A= 
A=1F 
A= LF 
A=LF 
A=1F 


B=7408 
B=74282 
B=741F 
B=741F 
B=741F 
B=741F 
B=741F 
B=741F 
B=741F 
B=741F 
B=741F 
B=741F 
B=741F 
B=741F 
B=741F 
B=741F 
B=741F 
B=741F 
B=741F 
B=741F 
B=741F 
B=741F 
B=741F 
B=741F 
B=741F 
B=741F 
B=741F 
B=741F 
B=7400 


D=OAG82 
D= 2022 
D=Oa0 
D=A00 
D= 2222) 
D=Q2A2 
D=4O22 
D=2082) 
D=89808 
D=HOO2) 
D=Q922 
D=8088 
D=AOB 
D=OAA8 
D= Baa 
D=A0G2 
D=O008 
D= 8082) 
D=AABe 
D=BAAZ 
D=A@a2 
D=4002) 
D=HAB2) 
D=AG02 
D=OU08 
D=AA02 
D=2222) 
D= OBO) 
D= Gages 


H=747E 
H=22A82) 
H=O00) 
H= 20a 
H=AA02 
H=@1 0c 
H=@41@5 
H=2 202) 
H=A0a2 
H= A222 
H= 2002) 
H=4Aa2 
H=20g) 
H=A002 
H=8000 
H=2282 
H=2 200) 
H=Q0F E. 
H=Q0F E 
H=QOF E 
H=O0FE 
H=Q@FE 
H=QQF E. 
H=B274 
H=B274 
H=B274 
H=B274 
H=B274 
H=B274 


5=@8188 
S=@1 02 
5=81 8 
S=@GFE 
S=O0FE 
S=Q@QFE 
S=Q0FE 
S=OOFE 
S=Q0FE 
S=Q0rE 
S=Q0F E. 
S=@0FE 
S=Q0FE 
S=G0FE 
S=Q@FE 
S=QQFE 
S=Q0FE 
S=QQ0FE 
S=QQF E 
S=BE@2 
S=BEOQ 
S=BE@Q 
S=BREO? 
S=BE@Q 
S=BDFE. 
S=BDFE 
S=BDFE. 
S=BDFE 
S=BDFE 


P=@10@ LXI H, G00 
P=91@3 MVI C,1F 
P=@125 CALL 9508 
P=95@2 JMP SBA 
P=9BA2 XTHL 

P=QBA2 SHLD A44A 
P=9BAE XTHL 

P=QBA7 JMP ASG 
P=A5@6 JMP AS1i1 
P=ASii XCHG 

P=AS1i2 SHLD AB4S 
P=AS1i5 XCHG 

P=A5S1i6 MOV ALE 
P=AS17 STA Bede 
P=Q51A LXI H, G80 
P=A51iD SHLD AG4S 
P=ASZ@ DAD SP 
P=ASZ1 SHLD AGF 
P=AS24 LXI SP, BEG 
P=AS27 XRA A 
P=AS20 STA BLED 
P=QAS52B STA BSDE 
P=ASZE LXI HH» Bava 
P=AS31 PUSH H 
P=AS32 MOV ALC 
P=Q533 CPI 29 
P=A535 RNC 

P=ASSE MOV CLE 
P=ASZ7 LXI Hr AS47 


(Continued on top of page 65) 
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CIiZAaMiEsI 
CiZ@MiEsiI@ 
CiZ@MiE@igQ 
COZUMLEBIA 
COZOMLEGIA 
CQ@ZAMIE@IA 
COZEaMLEGI@ 
COZUMLE@I 2 
COZOMLE@IO 
COaZBMiESIA 
COZ@aMLEGIA 
COZAMNLIESIA 
COZQMLE@I2 
COZMMLEBIA 
COZAMLEBI 
COZIMBEL IS 
COZIMBELT® 
COZIM@ELIO 
COZIMBELT 2 
COZIM@ELIO 
COZIMBELIC 
C@ZIMBELIA 
COZIMBELIC 
COZIM@E LIS 
COZ IMBELIC 
~6Q 


Microprocessor based intelligence for ease of 
use and interface. You send the data, the 
7128 takes care of the rest. 

RS-232 interface and ASCII data formats 
make the 7128 compatible with virtually 
any computer with an RS-232 serial inter- 
face port. 

Auto-select baud rate. 

Use with or without handshaking. 
Bidirectional Xon/Xoff supported. 
CTS/OTR supported. 

Devices supported as of DEC 82. 

NMOS NMOS CMOS EEPROM MPU’'S 
2758 2508 27C16 5213 8748 


2716 2516 27C32 X2816 8749 
2732 2532 C6716 48016 8741 
2732A 2564 27C64 8742 
2764 68766 8751 
27128 8755 8755 


Read pin compatible ROMS also. 

Automatic use of proper program voltage 
based on type selected. 

Menu driven eprom type selection, no per- 
sonality modules required. 

(40 pin devices require adapter) 

INTEL, Motorola and MCS-86, Hex formats. 
Split facility for 16 bit data-paths. Read, pro- 
gram, and formatted list commands also. 
Interupt driven type ahead, program and 
verify real time while sending data. 
Program single byte, block, or whole eprom. 
Intelligent diagnostics discern between 
eprom which is bad and one which merely 
needs erasing. 





B= 7402 
B= 7408) 
B=7402 
B=7 408 
B=7 402 
B=7400 
E=7 482 
B=7 492 
B=7408 
B=7402 
B=7400 
B=7482 
B= 7488 
B= 7482) 
B=7402 
B=74808 
B=7408 
B=7 48 
B=7 482) 
B=740@ 
B= 7402) 
B=B480 
B=B408 
B=B402 
R=B4a@ 





f INC. 


Circle no. 34 on reader service card. 


D=2002 
D=221F 
D=OQ1F 
D=O@1F 
D=2@1F 
D=OO26 
D=QO2E, 
D=BS2e 
D=B226 
D=H202 
D=YAA2 
D=8082 
D=AA82Q 
D=AAaZ 
D=8800 
D=QG02 
D=O222 
D=AAA2 
D=Q2Q 
D=O 008 
D=BAA2 
D=B2B2 
D=ZABA 
D=OA22) 
D=AA8Q 


Verify erasure and compare commands. 
Busy light indicates when power is being ap- 
plies to program socket. 
Complete with TEXTOOL zero insertion 
force socket and integral 120 VAC power 
supply. (240 VAC/50HZ available also) 
High Performance/Cost ratio. 

@ee Model 7128 PRICE $389.00 eee 


MODEL 7128 SOCKET ADAPTERS 

MODEL 481 allows pregramming of 8748, 

8749, 8741, 8742 single chip processors. 
Price $98.00 


MODEL 511 allows programming the 8751, 
Intel’s high powered single chip processor. 
Price $174.00 
MODEL 755 allows programming the 
8755 EPROM/IO chip 
Price $135.00 


MODEL 7128/24 - budget version of the 
7128. Supports 24 pin parts thru 32K only. 
Upgradable to full 7128 capacity. 

Price $289.00 


Non-expandable, very low cost models avail- 
able for specific devices. 

MODEL 7128-L1 for 2716 only $149.00 
MODEL 7128-L2 for 2732 only $179.00 


Also available from stock: 

Eprom Erasers UVP model DE-4.. $78.00 
Avocet Systems Cross Assemblers $200.00 
RS-232 Cable Assemblies ...... $25.00 
Programmable Devices.......... call 
Complete development systems . $3240.00 


Post Office Box 289 


Waveland, Mississippi 39576 


i601) 467-8048 
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H=AS47 
H=AS47 
H=AS47 
H=ASEE 
H=ASE5 
H=ASES 
H=ASSE 
H=ASSE 
H=A802 
H=Bi2e 
H=BSSe, 
H=B47E 
H=B47E 
H=B47E 
H=B47E 
H=B47E 
H=B47E 
H=QOFE 
H=Q0FE 
H=B47E 
H=B47E 
H=B47E 
H=B47E 
H=B47E 
H=B47E 


“di 


wmmuwnPpe MwA 


il 
Babi hbo ha ha bo Bo bo 


He i tin 
MoD dm to mo 


Ww Ww uw Lo Nw 


B,H 


Li 
D 


O1@9 
O1%9+@189 


LEO ELECTRONICS, INC. 
8921 S. Sepulveda # 208 
Los Angeles, CA. 90045 
(213) 641-3101 (800) 421-2418 
TLX: 664-688 Interline LSA 


moked Ge: 


LOW PRICES 


EPROMS 


2708 

2716 
2/16-1 
TMS 2716 
2152 

2532 

2/764 





RAMS 


4116 (200ns) 
4116 (150ns) 
4164 (200ns) 
4164 (150ns) 
2114 (200ns) 
6116P-3 


MICROPROCESSORS 
Z-80A 4.50 


8080A 220 
8085A 6.00 


DORWP OWN 
OnNONONY 
COnnOOdo 


REGULATORS 


Aik ase 
TO—220 


TERMS: Check, Visa, Mastercard. Call for C.O.D. 
U.S. Funds only. California residents add 6%% sales tax. 
SHIPPING: Add $2.00 for Ground and $5.00 for Air. 
ALL MAJOR MANUFACTURERS 
ALL PARTS 100% GUARANTEED 





Circle no. 48 on reader service card. 
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ulian dates have long been used by 
astronomers to facilitate accurate 
reckoning of dates over long periods 
of time, and they can also be extremely 
useful in various applications of comput- 
ers. A Julian date is simply the number of 
a given day counted in sequence from 
some base date which is assigned Julian 
date 0. For example, if 1 January 1983 is 
taken as the base date 0, then 2 January 
1983 would have Julian date 1, 3 January 
1983 would have Julian date 2, and 1 Jan- 
uary 1984 would have Julian date 365. 

There are at least four reasons why 
Julian dates can be usefully applied in 
computer programs (inventive comput- 
erists can probably find more): 





(1) The Julian date provides a com- 
pact and economical way of storing a 
date as opposed to representing it as a 
string of ASCII characters. 


(2) Any two dates may be simply 
compared by an arithmetic test to deter- 
mine which date is earlier. This is espe- 
cially useful when items are to be sorted 
by date. 


(3) The exact number of days be- 
tween any two dates can be determined 
by a simple subtraction. 


(4) When a Julian date is divided by 
7, the remainder gives the corresponding 
day of the week (this will be explained in 
more detail below). 


True Julian dates as used by astrono- 
mers take noon, 1 January 4713 B.C. as 
the base date (astronomers count days 
from noon to noon). But for most com- 
puter work, it’s more useful to take a 
year someplace in the current century as 
a base year, because there normally is no 
need to reference dates very far back in 
the past. A base date in 1900, for example, 
would be sufficient for the Julian date 
representation of employee birth dates in 
almost any business today. Furthermore, 
restricting the forward span of dates from 
the base date to some reasonable future 
limit allows the Julian date to be stored 
and manipulated economically. For exam- 
ple, choosing to store a Julian date in a 
16-bit word (two bytes) allows a span of 
65,536 days, which is approximately 
179.4 years. The algorithms for Julian 





Gordon King, King Software, P.O. Box 
208, Red Bank, New Jersey 07701. 
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date conversion given below, which use a 
16-bit Julian date, allow a base year to be 
chosen between 1900 and 1920, thus 
giving a terminating date between 2079 
and 2099 in the next century. 


In order to use Julian dates on a 
computer, two conversion routines are 
needed: CTOJ, which converts a calendar 
date to a Julian date, and JTOC, which 
converts a Julian date back to a calendar 
date. The routines given here are based on 
Algorithm 199 in The Collected Algo- 
rithms of the ACM, as presented by R. G. 
Tantzen in 1963. Calendar dates are 
given in the form DAY (an integer from 1 
to 31), MONTH (an integer from 1 to 12), 
and YEAR (an integer from 1900 to 
2099). The Julian date is given (or re- 
turned) as the 16-bit unsigned integer 
JDATE, ranging from 0 (Julian date 0) 
to 65,535 (last day). 


The base date is 1 March 1900, or 
1 March of any leap year after 1900 not 
greater than 1920. The first of March 
rather than the first of January is used as 
a base date in order to avoid problems 
with 29 February in leap years. For simi- 
lar reasons, the routines as given will not 
work for dates before 1900 or after 2099 
(1900 and 2100 are not leap years, while 
2000 is). Readers interested in represent- 
ing dates outside these ranges should refer 


to Tantzen’s original algorithms, which 
handle any Gregorian calendar date (but 
not within 16 bits). 

The conversion routines are shown 
first in a pseudo higher-level language 
to make the algorithms clear (see Figure 
1, below). But the reader should be 
cautioned that they cannot be directly 
translated into any higher-level language 
which, like many BASICs, doesn’t sup- 
port long (32-bit) integer arithmetic. 
Though the results are all 16-bit quanti- 
ties (or less), some of the intermediate 
calculation requires 32-bit arithmetic, 
and the algorithms also depend on the 
properties of integer division. 

As illustrated in Figure 1, the normal 
month number is converted to the num- 
ber of a month in a pseudo year run- 
ning from 1 March through 28 (or 29) 
February, and the year number is adjusted 
if necessary. The magic number 1461 
which appears in CTOJ is simply the 
number of days in a leap-year cycle of 
three years of 365 days each and one year 
of 366 days. Therefore the expression 
(1461 *y)/4 gives the total number of 
days in all preceding years from the base 
year up to the specified year. The integer 
function (153*m + 2)/5 similarly gives 
the total number of days in any pseudo 
year up to, but not including, month m. 
Therefore, adding DAY to the sum of the 


Conversion of Calendar Date to Julian Date 


y = YEAR - Base Year 
If MONTH .gt. 2, m = 


MONTH - 3 


else m = MONTH+9, y= y-1 
JDATE = (1461*y)/4+ (153 *m + 2)/5 + DAY - 1 


Conversion of Julian Date to Calendar Date 


y = (4*JDATE + 3)/1461 
d = (4*JDATE+ 3) mod 1461 


YEAR = yt Base Year 
d = d/4+1 
m = (5#d-3)/153 


d = (5 *«d-3) mod 153 


DAY = d/5 +1 


If m jt. 10, MONTH = m+3 
else MONTH = m-9, YEAR = YEAR+1 


Figure 1. 
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two preceding expressions gives the day 
number of the specified calendar date; 
and finally subtracting 1 gives the base- 
zero Julian date. The routine JTOC sim- 
ply reverses the above calculation to con- 
vert back to calendar date. 


The JDATE numbers used by these 
algorithms may also be converted to day 
numbers in other similar date systems by 
the addition or subtraction of a suitable 
conversion constant. Suppose that FDATE 
is such a day number in some “‘foreign’’ 
date system which also numbers days 
sequentially, but from a different base 
date. Then 


JDATE = FDATE + CC 
and 
FDATE = JDATE-CC 


where CC is the conversion constant, 
which is simply the JDATE value for the 
base date of the foreign system; it must of 
course lie within the valid JDATE range. 
For example, MP/M and CP/M Plus use a 
16-bit integer date with 1 January 1978 
taken as Day 1 (hence 31 December 1977 
is Day 0). The JDATE value for 31 De- 
cember 1977 is 28,429 if 1900 is used as 
the JDATE base year, or 21,124 for base 
year 1920. Therefore simply adding the 
appropriate one of these two constants 
to MP/M’s date at the beginning of the 
routine JTOC converts it to the corre- 
sponding JDATE and results in the cor- 
rect calendar date. Conversely, subtracting 
it from JDATE at the end of the routine 
CTOJ gives back the MP/M-form date 
corresponding to the given calendar date 
(calendar dates before 31 December 1977 
will result in negative MP/M dates, which 
may have some useful interpretation out- 
side of MP/M itself). 


Before going on to present the two 
routines in Z80 assembly language, men- 
tion should be made of the method of 
determining the day of the week corre- 
sponding to a given Julian date. When a 
Julian date is divided by 7, the remainder 
will be one of the seven numbers from 0 
to 6 (the quotient is ignored). These 
correspond to the seven days of the week 
in order, beginning from a day which 
depends on the base year. For base year 
1900, a remainder of 0 means Thursday, 
1 means Friday, and so on down to 6, 
which means Wednesday. For base year 
1920, a remainder of 0 means Monday, 1 
means Tuesday, etc. Consequently, these 
remainders can be used to index into a 
suitably ordered table of day names when 
it’s required to print the day of the week 
corresponding to a given date (after it’s 
been converted to a Julian date, of 
course). 


Finally, the listing (page 68) provides 
the two conversion subroutines in Z80 
assembly language. The date is transferred 
in the byte DAY, the byte MONTH, and 
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MIDWEST MICRO 
WAREHOUSE 


3437 Holmes e Kansas City, MO 64109 e Phone (816) 753-1304 


LIST 


IEE-696 S-100 (PURE!) SYSTEMS: 


COMPUPRO SYSTEM A 
COMPUPRO SYSTEM B 
COMPUPRO SYSTEM C 
SEATTLE GAZELLE 


PRINTERS: 
DIABLO 620 
NEC 3510, 3515 
OKIDATA 83-A 
OKIDATA 84-A 


TERMINALS: 
HAZELTINE ESPRIT | 
TVI 925 

TV! 950 

VISUAL 200 

VISUAL 300 

VISUAL 50 


5495. 
7995. 
8995. 
5995. 


1595. 
1995. 
995. 


1395. 


595. 


995. 
1195. 
1295. 
1195. 
745. 


MMW 


4690. 
5690. 
6890. 
4395. 


Tt7D: 
1385. 
707. 
995. 


489, 
725. 
925. 
9F5. 
975. 
675. 


8” MS-DOS SOFTWARE: 
MS-DOS 1.2X l1O.ASM FOR COMPUPRO 


DISK | & SCP CARDS (MMW/COMPUVIEW 


PRODUCTS) 

ASCOM (DMA-THE ULTIMATE MODEM 
PROGRAM) 

ASHTON-TATE DBASE II-86 

MICROSOFT MULTIPLAN 

MICROSOFT BASCOM 86 

MICROSOFT FORTRAN77 

MICROSOFT PASCAL 

EM-86 (LIFEBOAT) 

SUPERCALC 86 (RUNS 
W/EMULATOR-86!!!) 

SORCIM SUPERWRITER (BETTER 
THAN WORD*!) 

COMPUVIEW VEDIT-86 

PERFECT WRITER (PERFECT SOFTWARE) 

WATFIV FORTRAN ‘66 (SUPERSOFT) 


S-100 EQUIPMENT: 

COMPUPRO 256-K (STATIC) MDRIVE) 

PARADYNAMICS PRONTO 

HAYES SMARTMODEM (1200 BAUD) 

TEI DFD-O0 (DEMO) 

COMPUPRO APPROVED 20 MB HD 
SUBSYSTEM 


LIST 


150. 


195: 
700. 


500. 
400. 
400. 
400. 

13; 


295. 


395. 


395. 
425. 


1595, 
95. 
695. 


o95: 


3695. 








MMW 


135. 


160. 
420. 
345. 
270. 
270. 
270. 

70. 


165. 


247. 
175. 
280. 
325. 


1445. 
1355. 
549, 
445. 


3295. 


TAPE DRIVES, SEATTLE & COMPUPRO CARDS, NORTH STAR ADVANTAGE, MS-DOS 


FOR COMPUPRO 8/16 SYSTEMS, ETC. IT’S HERE! CALL!!! 


TERMS: COD CERTIFIED CHECK OR CORPORATE PURCHASE ORDER W/BANK REFERENCE 


Circle no. 55 on reader service card. 


Circle no. 76 on reader service card. 


7 ea Differences to Disk File 
=p | =p To the User Terminal 


7 ep Difference to Printer 


—__eee— 








the word (two bytes) YEAR, while the 
Julian date is transferred in the word 
JDATE. Since the Julian date is con- 
tained in a 16-bit word, the legal range 
of dates is from 1 March 1900 to 4 August 
2079 if 1900 is chosen as the base year, or 
from 1 March 1920 to 4 August 2099 if 
1920 is chosen as the base. 


The subroutine CTOJ checks DAY, 
MONTH, and YEAR for legal values and 
jumps to a routine ERROR (not supplied) 
in case they’re out of range. Two sub- 
routines are also supplied for integer 
multiplication and division, but if date 
conversions are to be done heavily, as in 
an inner loop, some improvement in per- 


formance could be gained by using shifts 
and/or adds to do the multiplications by 
4 and 5 and the divisions by 4. DP 


(Listing begins below) 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 245 





Julian Dates (Text begins on page 66) 


YEAR® = 1900 ;BASE YEAR 


;CONVERT CALENDAR DATE TO JULIAN 


CLs: 


GiA02s : 


LD 
LD 
OR 
JP 
CP 
JP 
SUB 
JR 
ADD 
DEC 
LD 
LD 
LD 
ADD 


OR 
JP 
LD 
CP 
JP 
PUSH 
LD 
CALL 
LD 
CALL 
POP 
PUSH 


CALL 
INC 
INC 
LD 
CALL 
POP 
ADD 
JP 
LD 
DEC 
CP 


; (DE,HL)/BC TO DE (QUOTIENT) 


; (DE, HL) /8C. TO DE. (QUOTIENT) 


;REDUCE BY ONE FOR BASE-@ J.D. 


HL; CYEAR? -GET THE YEAR 

A, (MONTH) ;>AND THE MONTH 

A,A “CHECK FOR A LEGAL VALUE 
Z,ERROR 

A,1iz+l]l 

NC ,ERROR 

A, 3 -MONTH IN MAR-FEB “YEAR" 
NC,CTOJ1 

A,12 * JAN-OR FES: BECOME: 87°23 
HL ; OF PREVIOUS YEAR 

E,A -PUT MONTH IN DE 

D,@ 

BC, -YEAR@ -SUBTRACT THE BASE YEAR 
HE, BC 

A,H -CHECK FOR LEGAL YEAR 
A,A 

NZ,ERROR 

A,L 

A,179+4] 

NC ,ERROR 

DE >SAVE THE MONTH 

DE ; 1461 -DAYS IN A LEAP-YEAR CYCLE 
MULWW “<- DESIE: +O. ODE, AL) 

BC, 4 

DIVLW 

HL >-GET THE MONTH BACK 

DE ; SAVE (YEAR*1461)/4 

DE bS35 

MULWW . —DEeHL LO. CRE. AL) 

HL ;ADD 2 

HL - ANNO OVERFLOW POSSTELE) 
BC,5 

DIVLW 

HL -GET BACK FIRST TERM 

AL: DE, -ADD (1534MONTH + 2)/5 
C,ERROR ;ERROR IF OVERFLOW 

A, (DAY) ;GET DAY 

A 

A,31 


CHECK FOR LEGAL VALUE 


LL 


68 


Dr. Dobb’s Journal, Number 80, June 1983 


;CONVERT JULIAN 


JFOG: 


JLOC1: 


JTOCZ: 


JTOC3: 


LD 
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NC ,ERROR 


ES A pias 8 BA 3 3 

D,?@ 

HL, DE ;ADD IN 

C,ERROR ;ERROR IF OVERFLOW 
(JDATE),HL ;STORE AWAY 


DATE BACK TO CALENDAR DATE 


HL, (Jd DATE) + GET -THE:- JULIAN’ DATE 

DE, 4 ;4*¥JIDATE + 3 

MU LWW ; DEAL: TO. 1{DESHL) 

BG 3 

HL BC 

NC, JTOC1 

DE 

BC,1461 *¥Y = C4XIDATE + 3)/1461 

DIVLW > €DE,AL) /8C. TO DE(Q) AND HLCR) 
DE *SAVE y, HL HAS d (REMAINDER) 
BC, 4 ;d = d/4 + 1] 

DE.) 6 

DIVLW ; 
Le a 

AL;S ,;o*¥d - 3 

MULWW > DE*HAL:- FO. CDE 441) 

BG, 3 

A,A 

HE, BC 

NC, JTOC2 

DE 

BG; 25:3 ‘mM = (5%¥d - 3)/153 

DIVLW ; CDE;,AL) / BC TG. DE CQ): AND -HL GRD 
DE ;>SAVE m, HL HAS d (REMAINDER) 
BO :S5 ; DAY * SS ed 

DE ,@ 

DIVLW ; 
DE 


(DEHLI /BC TO .DECG) 


(DE;VHL)/ BC TO DECQ) 


HL ;™ 
DE 7¥ 
Ape ;MONTH = m + 3 


A,12+1 
Gy SLOGS 
A,12 : 
DE : 
(MONTH) ,A 
HL, YEARO 
AL; DE 
(YEAR) ,HL 


pee MONTH +. Gre 


MONTH 


= MONTH - 12 
\ eee ae ee | 


;YEAR = y + Base Year 


(Continued on next page) 





69 


Julian Dates (Listing continued, text begins on page 66) 


*MULTIPLY HL*BE, 


MULWW: LD 


MULWW1: ADD 


MULWW2: DEC 


DIVIDE: (DE, HL) 


DIViwWis>. EA 


DIVLWix EA 
ADD 


ADC 
SBC 


ADD 
DIVLW2.: . DEC 


RET 
DIVLW3: INC 
JR 


RETURN 32-BIT PRODUCT IN DE (HIGH) AND HL (LOW) 


B,H ;MULTIPLICAND TO BC 

C.L 

HL,@ ; INITIALIZE PRODUCT 

A,16 ;COUNT 16-BIT MULTIPLIER 

Ai ae SHIP LT- BE ALLEY. ONL 

DEL 

HL,HL 

DE FL 

NC ,MULWW2 ; JUMP IF NO MULTIPLIER BIT 
HL, BC ;ELSE ADD MULTIPLICAND TO RESULT 
NC ,MULWW2 ;IF LOW ORDER WORD OVERFLOWS, 
DE ; CARRY INTO HIGH ORDER 

A ;CONTINUE FOR 16 BITS 

NZ ,MULWW1 

BY BC. QUOTIENT TO DE, REMAINDER TO HL. 

DEAL ;-HIGH ORDER TO HL, LOW TO DE 
A,16 ;COUNT 16-BIT QUOTIENT 

DE ,HL ‘SHIFT ONE BIT FROM DE TO HL 
HL,HL 

DE., HL 

HL,HL 

HL, BC ;WILL DIVISOR GO IN YET? 

NC ,DIVLW3 

HL, BC ;NO - RESTORE HL 

A ;CONTINUE FOR 16 BITS 
NZ,DIVLW1 

DE ; INCREMENT QUOTIENT 

DIVLW2 > LEAVE RESIDUE IN HL, CONTINUE 


End Listing 
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FORTH for: 


VICTSR 9000 Microcomputer 
Victor FORTH US #150 


Beginners Package in Fig-FORTH Style 
Including: Screen Editor, 8088 Assembler,Graphic 
Interface, Sound Generation, Math- 
matical extensions, games and many, 
many more... 

“And So FORTH” (374 page manual) 


DatrE FORTH 


Professional Level FORTH Package 

First package to conform with the proposed 1983 standard 

Features: On-line Documentation, Decompiler, 
Debugger (tracer), Viewer (help), Line 
Editor and Screen Editor, 8086/8088 
Assembler, Meta Compiler, Double 
precision Math extensions, Native 
Operating System file handler, True 
LRU disk buffer mechanism, Separate 
header, Graphics/Sound Interface, 














US $350°° 
















903/646-6159 


(available in second quarter 1983) 
we 
ag 
INC. 


Hashed dictionary structure. 
Available for CP/M, MS-DOS, or stand-alone versions. 
DAI-E 
SYSTEMS 
CHINESE LANGUAGE COMPUTING SYSTEMS 
11001 S.W. BARNES RD. PORTLAND, OREGON 97225 USA. 
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SOURCE SOFTWARE 


Are you tired of using inflexible software which youcan’t 
modify? Here’s the source code for a CP/M-compatible 
2-80 assembler of high reliability written by a pro- 
fessional programmer with 15 years experience on large 
systems. 

Standard Zilog mnemonics 

19 pseudo-op’s, including TITLE, XLIST and 

nested conditionals with ELSE 

Source program can be read from multiple 

input files 

Prints a sorted symbol table at end of listing 

Modular structure, allowing easy revision as 

a cross-assembler 

Symbolic definition of all important para- 

meters makes it simple to hand-tailor lan- 

guage features as desired 
The assembler listing is contained in a 200-page manual 
along with a full tutorial explaining top-down how an 
assembler works. Advanced algorithms such as ex- 
pression processing by recursive descent are fully 
explained with illustrations in pseudo-code. The com- 
plete source code is also available on a standard format 
8" SSSD diskette. 

Z-80 Assembler Manual $25 

Z-80 Assembler Source Diskette $25 

Manual and Diskette together only $37 


(Foreign orders add $3 for surface mail or $10 for airmail) 
king Software 
PO Box 208 
Red Bank, N.J. 07701 
(201) 530-7245 


NJ residents please add 6% sales tax 


Circle no. 44 on reader service card. 








RTA for PC 


The Ariel RTA is a real time 1/3 octave spectrum 
analyzer for the IBM Personal Computer. Assembly 
language routines create an instantaneous display of 
the frequency spectrum of any audio signal. Also, the 
analyzer can digitize the signal and store it in the PC’s 
memory for analysis or playback. Call or write for full 
specifications and applications. 

@ 31 two pole filters on ISO centers. 
Pink noise source under software control. 
Averaging, weighting and peak hold functions. 
% db resolution from 20 Hz. to 20 KHz. 
8 bit real time analog input/output system. 
Price: $649.95 shipping included. 


APPLICATIONS 


@ Aid in room equalization in conjunction with a 
graphic equalizer. 

@ Record acoustic response of any enclosure for 
analysis or comparison. 

@ Digital storage of raw audio signal for analysis, 
playback or permanent disk storage. 

@ Speech research, analysis, synthesis, therapy or 
recognition, 


Ariel_ 
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600 West 116th Street 
New York City, N.Y. 
10027 


(212) 662-7324 











AT LAST! 

A_ PROFESSIONAL JOURNAL FOR ENGINEERS 
SCIENTISTS MATHEMATICIANS & STATISTICIANS USING 
MICROCOMPUTERS. 

PLUG INTO... 

ACCESS! 
The Journal of pekoompater Applications 
or 


* numerical analysis 
* math modeling 
* statistical analysis 


* computerized design 
* process simulation 
* report generation 


The articles in ACCESS are written by workin 
engineers and scientists who share their knowledge o 
how to make productive use of microcomputers with 
you. Your subscription to ACCESS will make your 
microcomputer more useful in all areas where 
engineers and scientists use microcomputers. And you'll 
even find ways to use your computer you hadn't 
thought of. The articles in ACCESS are written with 
you in mind and are aimed at helping you turn your 
See eae into the most productive tool possible. 
Sign up W be a charter subscriber. Join the other 
engineers and scientists who make ACCESS their 
source of information on microcomputer applications. 
Charter rates are 6 issues for $16. (Canada & Mexico 
$20. Other $32) Fill out the coupon below TODAY. 
Send check, money order, purchase order, or use your 
VISA or MASTER CARD. 


ign me $16 () enclosed () Bill me () Bill 
ompany "Shares Yet () MC 0, 0 

Exp () Send sample issue here's $3 

Name & address 

City State aad Fo en ee 


Mail to ACCESS PO Box 12847 Research Triangle Park, 
NC 27709 Published by LEDS Publishing Co., Inc. 
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16-BIT SOFTWARE TOOLBOX 


by Ray Duncan 





8088 Addressing Modes 


The short comment on 8088 Base 
Relative Indexed Stack addressing and 
the table from Leo Scanlon’s book, 
printed in this column a few months ago, 
drew a surprising number of letters. 
Albert Brunelli, of N. Chelmsford, Mass., 
practically wrote a whole tutorial; I 
found it so helpful that I am reprinting it 
verbatim below. 


‘‘T am writing in response to the 16- 
Bit Software Toolbox column of March 
1983. The primary purpose of this letter 
is to explain some of the uses of the 
8086/88’s BP register. First I will com- 
ment on Leo Scanlon’s listing on page 17 
of the March 1983 issue. 

‘The subroutine will prove only that 
the DS register is not the default segment 
for BP-based memory references. The 
ASSUME statement does not change any 
register. It is merely a means of assuring 
the assembler that you know what you 
are doing when you make an anonymous 
reference (use a base or index as an offset 
without specifying a segment register). 
Mr. Scanlon appears to understand this 
when he initializes the DS register. How- 
ever, he never initializes the SS register to 
the segment STACK which he would have 
to do to prove his case. If he were to 
change the SS to STACK, and if it weren’t 
already pointing at STACK of course, he 
could never return from the subroutine. 
If the DL and DH registers hold OFFh at 
the end of the routine, it is merely a co- 
incidence. He would do better to push 
the data onto the stack and then retrieve it 
using the BP register. This technique will 
become clearer as we get further along. 

‘“‘To get a good feel for the intended 
use of the BP register, one must under- 
stand the philosophy behind the use of 
the 8086 instruction set. As I understand 
it, Intel wanted to create a microprocessor 
with an instruction set which lent itself 
well to the implementation of high-level 
languages, specifically to Intel’s systems 
language, PL/M. 

‘In PL/M and most other structured 
languages, most arguments are passed to 
procedures (functions, subroutines) on 
the stack. However, since the return 
address will be the lowest address on the 
stack, considerable manipulation must be 
done to access the arguments while main- 
taining the return address. Intel added 
two nice features to the instruction set to 
make argument retrieval easier. The BP 
register is one of these. 

‘‘Let’s assume we wish to pass two 


arguments to the FAR subroutine SUBI. 
We might pass them as shown below: 


PUSH CX 
PUSH DX 
CALL SUB1 


“After the CALL instruction is executed, 
the stack will look like this: 


low address OLDIP offset 
OLD CS _ segment 
ARG2 from DX 

high address ARGI from CX 


“To retrieve the arguments and return 
properly, SUB1 might follow the proce- 
dure: 


SUBI1 FAR 


BP 


PROC 
PUSH 
MOV BP,SP 
PUSH DS 
PUSH Sl 
PUSH 


‘save registers 


‘-body of subroutine 


DONE: 


SUBI 


“Moving SP to BP will allow us to index 
into the arguments passed on the stack 
using BP. The contents of the stack when 
we get to the body of SUBI1 are shown 
as follows: 


BX,TABLE_1 
CX,NUM_ENTRIES 


BP,CONT1 
SYN —SUB1 


SYN_—SUB1; 


low address OLD AX ;‘“‘top” of stack 


OLD SI 
OLD DS 
OLD BP _;BP points here 
OLD IP. :BrR*Z 
OLDCS_ ;BP+4 
ARG2 ;BP+6 

high address ARGI -BP+8 


‘“‘We may thus retrieve the arguments with 
the instructions: 
MOV AX,[BP+6] 
sfetch ARG2 
MOV SI,[BP+8] 
sfetch ARGI 


‘““Any reference using BP as a base 
will assume that it is in reference to the 
stack segment (with or without an 
ASSUME declaration). 

‘“Now we have fetched the arguments 
without disturbing the return address. 
How will we clean up the stack so that 
the arguments will not clutter it up for- 
ever? Once again Intel comes to the rescue 
with the ‘RET n’ instruction. The ‘n’ part 
of the instruction tells the processor how 
many bytes to discard from the stack 
after it has taken off the return address. 
In other words, it will add ‘n’ to the stack 
pointer (SP) after fetching the return 
address. 

‘‘The final use to which I will put the 
BP register is one which I have found very 
helpful in memory-test programs which 
do not have access to the, as yet unveri- 
fied, stack area of RAM. We may create 
synthetic subroutines which may be 


;point to ROM table 
snumber of table entries 
“BP becomes return addr 


-control returns here 


;synthetic subroutine 


;pseudo-return instr. 


Figure 1. 
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‘called’ from anywhere within the same 
code segment. The idea is that the return 
address is placed in a register before 
jumping to the subroutine, which termi- 
nates with a jump register instruction 
such as shown in Figure 1, page 72. 

“The LEA BP instruction will place 
the offset of the CONT1 label in the BP 
register. The BP register is the perfect one 
to use in a situation like this because we 
have no stack to which it may point. The 
JMP BP instruction may be thought of as 
roughly equivalent to the 8080’s PCHL 
instruction, although it is more powerful 
since any general register may be used as 
the source.”’ 


Wishful Thinking Dept. 


Jim Howell wrote to point out a 
truly glaring error, found on page 3-13 of 
the iAPX-88 Book (July 1981 edition), 
which readers of this column may find 
amusing or amazing. “16-bit operands 
are stored in memory with the most sig- 
nificant byte (MSB) first, followed by the 
least significant byte (LSB) in the next 
location.”” The picture set at the bottom 
of the page in the book repeats this 
error. 
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_Antroductory Price’ $69.00" plus $5.00-S6H US and Canada TW13 OHA _»-01-898-3775. 


+ SASS is 0 trademark of Rockwellinternational 2» 


8088 Line Generator 


Dan Rollins of Glendale, Calif. sent 
in an 8088 assembler version of the fast- 
vector algorithm featured in Dave Cortesi’s 
column of December 1982 and February 
1983. His comments follow: 

“The routine is self-modifying and 
needs no external storage area. The code 
that calculates the coordinate pairs is 
blazing fast. It’s a shame that the BIOS 
write-dot routine (which it calls) is so 
slow. I am using a version of this routine 
in an arcade game I am currently writing. 
All of the drawing and point testing in 
that game takes place in a buffer and I 
use a much faster PLOTDOT routine.” 

Listing 1 (page 75) contains the 
line generation subroutine proper, while 
Listing 2 (page 77) demonstrates how to 
call the subroutine from BASIC. 


PC-TALK III 


Andrew Fluegelman, author of the 
excellent PC-TALK communications pro- 
gram and originator of the ‘‘Freeware”’ 
concept, has announced a new version 
that has some significant enhancements. 
Version III has been rewritten so that all 
features operate at 1200 baud. The Key 
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Directory has been expanded to 40 per- 
manent strings, and the Dialing Directory 
now holds 60 entries and stores selective 
character stripping for each entry. 

The Transmit and Receive routines 
now offer the options of line- paced trans- 
mission, sending of binary files, and the 
XMODEM error checking protocol. Pro- 
gram defaults can be reset interactively 
while the program is running. Other new 
bells and whistles include auto-redial, 
margin width alarm, and a screen dump 
to disk. 

Updates to Version III for previous 
PC-TALK owners are only $10.00, while 
the suggested donation for new owners is 
$35.00. As before, everyone is encouraged 
to make copies of the program and dis- 
tribute them as widely as possible for 
free; recipients of such copies are re- 
quested to mail in a donation if they 
appreciate the program and want to 
promote the development of more Free- 
ware. PC-TALK is available from The 
Headlands Press, P.O. Box 862, Tiburon, 
California 94920. 


(Listings begin on page 75) 


Reader Ballot 
Vote for your favorite feature/article. 
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says Q-PRO4 user, 
Richard Pedrelli, President 
Quantum Systems, Atlanta, GA 








4&6 As a dBASEII beta test site the past two years, we 
were reluctant to even try Q-PRO4. Now we write all our 
commercial applications in Q-PRO4. We find it to be an 
order of magnitude more powerful than dBASEII. 

Q-PRO4’s 4th generation syntax is so efficient, we 
now complete complex jobs in weeks instead of months. 
Superb error trap and help screen capabilities make our 
finished applications far more user friendly. And our 
programs run much faster, too. 

In my estimation, any application programmer still 
using outdated 3rd generation data base managers or 
worse, a 2nd generation language like BASIC, is ripping 
himself off. 99 


Q-PRO 4 — $395. Ask about FREE trial offer. Call (215) 968-5966 
Runs on 8 bit micros with CP/M, MP/M, TurboDOS™, MmmOST. 
Author’s lock up package available. 


Quic-n-easi products Inc. 
136 Granite Hill Court, Langhorne, PA 19047 (215) 968-5966 


CP/M and MP/M are registered trademarks of Digital Research, TurboDOS is a trademark of Software 2000, Inc., 
MmmOST is a trademark of TeleVideo. dBASE II is a registered trademark of Ashton-Tate, Inc. 
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INTRCEPT — 


CP/M 2.2 


CP/M (IM) Digital Research, Inc. CDOS (TM) Cromemco, Inc. 


RUN CDOS PROGRAMS UNDER CP/M 2.2 
RUN CP/M 2.2 PROGRAMS UNDER CDOS 


e Z8O code ® Customizable system calls 
e No program, CP/M, or CDOS modifications 


INTRCEPT Version I-1 $89.95 
e emulates CDOS under CP/M 2.2 


INTRCEPT Version I-2 $89.95 
e emulates CP/M 2.2 under CDOS 


INTRCEPT Version Il 
e emulates both CDOS and CP/M 2.2 
e add $30.00 for CDOS emulator source code 


$129.95 


Check, VISA, MC e In CA, add 6% fax. 


microSystems 


16609 Sagewood Lane 
Poway, California 92064 
(619) 578-1240 
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ANNOUNCING 


THE C86™ C COMPILER 
— THE COMPILER THAT SPEAKS 
THE LANGUAGE OF THE FUTURE! 


Kernighan and Ritchie’s book, The C Programming Language, is 
the key source for C. Just as fundamental is the C861™ C 
Compiler. 


The C86 ™C Compiler is especially designed for the IBM® 
Personal, IBM® Display Writer, CP/M-86® and MS-DOS® 


For further information on the C programming language 
and the C86 ™ C Compiler, please contact: 


Computer Innovations, Inc. 
75 Pine Street 

Lincroft, New Jersey 07738 
Telephone: (201) 530-0995 


C86 is a trademark of Computer Innovations. inc.:; CP/M-86 is a 
trademark of Digital Research: IBM and MS-DOS are registered 
trademarks of International Business Machines, Inc. 
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CompuPro System users: 


8087 SUPPORT 


for Microsoft 


BASIC-80 and FORTRAN-80! 


Impatient with 8-bit software? Don’t despair! Now you can put 
Intel’s amazing 8087 Numeric Data Processor to work on the 
same jobs, simply by re-linking with BAS87LIB or F87LIB, Avant- 
Code’s unique Link-80 compatible runtime libraries for the 8087. 


ADVANTAGES OF BASIC-87 and FORTRAN-87 
® Dramatically faster execution speed 
@ More accurate and reliable than Microsoft 8080 routines 
® No software conversion required—just re-linking! 
® Replaces all 53 intrinsic and external library functions 
@ Easiest and cheapest way to add 8087 power to your system! 


Typical double precision (64-bit) benchmarks: 


Operation 1 1 9 
(5000 iterations) FORTRAN-80 FORTRAN-87 FORTH 
multiplication 32 sec. 2.4 sec. 3.3 sec. 
division 62 2.5 3.4 

sine or cosine 380 32 6.4 
logarithm 390 2.6 N.A. 
square root 500 ey 2.3 


Iterative loop on CompuPro/Hudsen CP/M system (8085 @ 6MHz and 8088/87 @ 5MHz2). 
2 FORTH with 8087 64-bit floating point on IBM P.C., Dr. Dobb’s J., Nov. 1982, p. 46. 

















Prices: * 
@ BASIC-87 (requires Microsoft BASIC-80 compiler) | $200.00 
@ FORTRAN-87 (requires Microsoft FORTRAN -80) $200.00 


@ Hudson & Associates 8087 Support Board for CPU 8085/88 
(Assembled & tested with 5MHz 8087-3) $495.00 
















1508A Oxford Street 


AVANT-CODE | Berkeley ca 94709 


(415) 549-3257 












*Target system must include CompuPro CPU 8085/88 and System Support 1. Disk 1 plus 4K of extended 
addressing RAM may be substituted for System Support 1. User installation of the Hudson & Associates 
8087 Support Board will not void CompuPro warranty on CPU 8085/88. California residents add sales tax. 

BASIC-87, BAS87LIB, FORTRAN-87 and F87LIB are trademarks of Avant-Code. 8087 Support Board is a trademark of 
Hudson and Associates. CPU 8085/88, System Support 1, and Disk 1 are trademarks, and CompuPro is a registered trade- 
mark, of W. J. Godbout Electronics. CP/M is a registered trademark of Digital Research. Basic-80 and Fortran-80 are trade- 
marks of Microsoft. 
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The Line Generator Subroutine 
Listing One (Text begins on page 72) 


0000 










0009 
0000 
000 1 


0003 


0041 
0049 
0042 
OO04A 


55 


BR EC 
BE 76 06 


Fase 1132 
title BRAWLINE.ASM Ten Rollins 


rublic drawline 


$9088 self-modifying rrosram implements fast-vector alsoriths 
§ described by Michalsky: DR #74, 12/82 
3 see also: FAST-LINE DRAWING TECHNIQUE, BYTE, Aus 81 


sroutine expects to be called from BASIC vie? 


CALL DRAWLINE( V2 0 )) 


=P 


where VXC0) Xi starting clm (0-319) 


g = 

j VZAC1)- = ¥I starting row (0-159) 

; VA(2) = X2 ending cle 

j VZ(3) == Y2 ending row 

; VXC4) = color (0919293) 

; VZ(5) = length 

§ 4) = draw entire line 

; else = draw sub- or super-set of this vector 
code Srour  cseg 

csed segment rublic ‘code’ 


assume CSicsess OBSinothings EStnothing 


+ meke it easier to access variables end ersursents 
ARGI eau worg rir CRFt6] 


X1 Pau word rir Csi] 

Yi eau word rir Csit?] 
X2 eau word pir Csit4] 
¥zZ eau word rir €s5ité6] 


COLOR eau byte pir [5i+8] 
LEN eau word pir Csitio] 


s these are velues that will be inserted in the code 
INC_X eau 41H 
BDEC_X eau 49H 
INC_Y eau 42H 
BEC_Y eau 48H 


¢ these ere the eddresses where new code is overlayed 
ABJ_LONG_AXIS eau bute ptr cstf{di} 

ALJ_MASTER eau word rir cst€dit3] 

TEST_MASTER eau word rlr csif€{dit7] 
ALT_ARJ_MASTER eau word ptr csitf€{diti3] 
ABJ_SHRT_AXIS eau byte rtr cst{<diti5} 


rese 

drawline proc far 
rush br yelways save 
hOV OF SP 


BOY SisARGI 9S1 => address of X12 sies VZi0) 


(Continued on next page) 
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The Line Generator Subroutine 
Listing One (Listing continued, text begins on page 72 


1006 
08 
HOR 
On 


HOOF 
11 
13 
13 


15 
17 
W1A 
in 


O1F 
21 
23 
23 
25 


0298 
2A 


O2C 
OZE 
030 
0030 
033 
037 
039 
O30 
041 


045 
0047 
04K 
40 
00590 
0059 
052 
WSS 
058 


HS 41 
8R 44 
2k 04 
7 04 


R349 
F7 Bg 


8B C8 
R7 42 
BR 44 
OR 44 
70 04 


B7 44 
F7 8 


8R BO 


04 


O& 
02 


BF OOST R 


3H Bt 
70) 04 


87 CA 
84 DF 


Z2E% 88 3D 


2E$ 89 4B 03 


Di €9 


2E% 89 4B 07 
2E% 89 35 On 
2E% 88 SD OF 


8B FA 
83 7€ 
7E.. 03 
8R 7C 


8R OC 
8B 54 
BA 44 
33 DB 


Of 00 


Of 


02 
08 


E8 0074 R 


41 

81 C$ 
81 FB 
7E 05 


Litt 
Litt 


dite 


gist 


di4t 


OY 
sub 
Jse 
BOV 


nes 


BOV 


Jjge 


TOV 
neg 


BOV 
BOV 


Chr 
Jse 


xchs 
xchs 


BOV 
HOV 
shr 
MOV 
mOV 
mOV 


Chr 
Jjle 


OV 


seodify_base 


inc 
add 
CBF 
Jle 


bBleINC_X sassume Xster = +1 

BOY axsX2 

axeXt 

aii sif Xi <= X2 then no change 
bisHEC_X sXster = -! 

aX sXdist = abs(Xdist) 

CBX ssave Xdist 

bheINC_.Y seassume Yster = +1 

BOV axrv¥2 

sub axsYt 

gi? sif Yi <= Y2 then no chense 
bhsBEC_Y 3¥ster = -l 

3% sYdist = abst Ydist) 

gxs3x ssave Ydist 


disoffset csimodify_base sroaint to the code 


dx7C% 
G13 


cxrdy 
bisbh 


ADJ_LONG_AXTSsbh 
ABJ_MASTERs cx 


cxsl 


TEST_MASTERs cx 


3 to sodify 
sdetermine longest exis 
s¥ is longer» so skip 


ssuar Xdists Ydist 
gswar INC/BEC X/Y values 
gmodifys 
¢ the ist INC/BEC code 
; wain duty waster adjustment 
sset up cucte tester 

test for cycling 


3 
ALT_ADUI_MASTERsds ¢ alternate adjustment 
; 


ADJ_SHRT_AXTS sb} 


disd> 
LENO 
ai4 
ROV 


cxeXh 
BOY 
BOY 
bxsb: 


alternate INC/REC code 


sRI is counter! long axis length 
sif ltengsth are > O 


disLEN ; then use it as counter 
adxx¥i 


3l+sCOLOR 
scGutu master starts = 0 


ee tor of vector Plottind loor --------- 


rictdot sFlot a dot 

label byte 

cx sINC/BEC CX/BX$ adjust lone axis ptr 
bystlliH sXdist or Ydist! adjust duty master 
bysiilftH sY¥dist or Xdist: check cycle position 
G1lé sskir if short axis is still of 


Bes Fee Se el aN NS IER tide IES SPS 5 EE COA LPO, Se ee CE ee ee ee eS) eee me Ee Te ee ee Lm NO en 
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0048 
OSC 
06D 
Wé6n 
W6E 


070 
0071 
007 4 


007 4 
007 4 
075 


07 
00738 


00747 
0078 
07 C 
0070 


0071 


81 


42 
4F 
70 


3 & 
CA 


R4 
Chi 


SF 


C3 


EB i 


EA 


0002 


OC 
19 


111 sub DysllltH sXdist or Ydist! edjiust duty aaster 


inc Gy gINC/TEC BX/CX$ adjust short axis rtr 
G1Sé 
dec Gi 941 15 used es counter 
Jge Gi5 sGo next dot if not finished 
3 aii sein Stein sev Wap ee is aig enslave enn nh iach ean si i cy eis Cen ac ki ee te he “ee nie dl a 
FOF br selwass restore 
ret 2 gback to BASICs discard { ard <<EXIT<<¢ 


Grawline endr 


sthis routine rlots the pixel st column CX (0-319 or (0-639) 
j row BX (0-199) 
; color At (0-3) or (0-1) 
Flotdot rroc nesr 

Push a 

Fush gi sRIOS destrous these resisters 

MOV shat? gurite_dot function 

int 19H * Video I/O call 

FOF Gi 

FOF 3x 

ret 


Flotdot endr 


cseg ends 


End Listing One 


Sart ee es One 
Listing Two 


* TESTER. BAS Den Rollins 92/02/83 


this compiled BASIC rrosray, testis the 8088-code RRAKLINE routine 


Gefint 3-z 
Giw vit5) 
screen } 
10; 
inpul"routine (1 or 2)*Gr 
if r=2 then 100 


20% 
input"color (0-3, -1 ts Quil)” svZ0 4) 
if v4C4) <= 0 then 39 


InPUL" xTeubex2ee2™FVZ00 DevX L Dokl 2 eyXl 3) 


Vit S =O 
input” length (null = full line }’syXi5) 


call drawlinet vE(0)) 


soto 20 


screen 090:0%0 ividth 80 tend 


Oe ceee es com cme cere cess cone come cow EEE eee euEe ame eum SOtD eees anes eeee eee sens COTS SOLS OS SY GEE SESE COST COT HUET GEES COED CORD COED GEES SEES SEED coGE eee cous Ged sees = 


(Continued on next page) 


a on ae ests pe aera ee eke EC Os een RT 


Dr. Dobb’s Journal, Number 80, June 1983 77 








Calling the Subroutine from BASIC 


Listing Two (Listing continued, text begins on page 72) 


* LASER REAMS: 


100% 
cis 
vZC0 =159 tvd0 1)=C 199) *Xis¥i 
110% 
V20 2 D=intiradest2 ) *KX2 
vit 3 )=9 Se 
vit 4 )=3 ‘color 
for lendth=10 to 190 ster 19 
VZ05 )=Length 
call dravwlinetvi09)) 
next 
vX( 4 )=9 
for lensth=10 to 190 ster 19 
vzC5)=Lensth 
call drawline(v400)) 
next 


somrFie use of the lensth rersmetler 


bottos center of screen 


rencom colunn 
tor of screen 


white 


’set length 
‘draw raertia!l line 


‘eolor = bleck to ersse 


if inkey$="" then £10 else 30 ’snyu Key ta exit 


End Listing Two 





CP/M SYSTEMS 
COMPATABLE 4080/2480 SOFTWARE 


GRAFIX-PAC 1 ======$119 Object or $250 Source ASM and VBASIC 
(Vector Graphic/SuperBrain/IMSAI VIO/SSM VB3) 





















BJACK Blackjack Standard Play against the House (Hawkeye) 
BREAKO Breakout the Brick Wall with the Bouncing Ball 

CHESS Graphics with Labeled Squares and Variable level Play 
CRAPS Full board Simulation with Help on Bet placement Odds 
INVADERS Alien Invasion and YOU are Under Attack or Bunkers 
OTHELLO Board game Plays Itself or You or You and Your Friend 
FOKERS Poker Slot Style just Like the Machines at Los Vegas 
POKERD Poker 5 Card Draw Against Hawkeye (watch the Bluffs) 
STREK Startrek Missions into Uncharted Galaxies and Enemies 
TARGETS Shooting Gallery full of Action with Detail Scoring 
GRAFIX-PAC 2 ======$149 Ob ject =======================>Manual $20 
eee ee (Vector Graphic/Super Brain/IMSAI VIO/VB3/TRS M1i+3) 
VBASIC Grafix Language Interpreter with Full screen Editor 
VRUN VBASIC Grafix Language Execute Only Compiler System 
VDEMO Demonstration Program Source with Super Examples 
VTEST Video Basic Functional Test Program Source code 
CRUNCH Video Basic Program Optomizer to Conserve Memory 





======$89 Object or $239 Source VBASIC==>Manual $10 
(Vector Graphic/SuperBrain/IMSAI VIO/VB3/TRS Mi+3) 
Advanced Designer Utility allows Creation of Screen 
Graphics such as room layouts, schematics, logos, etc. 
Screens can be Saved/reloaded and Printed on an EPSON 
On line Help and Menu Selections for Drawing Functions 
Circle/Block/Draw/Erace/Line/Clone/Lib/Label /Joystick 










SKETCH 


BIUS-PAC. 1 


BIOSDUAL 


======$249 Source ZASM====================>Manual $10 
(Micropolis Systems (Vector Gr aphic/Sorcerer /Others) 
Micropolis 5 inch Disk Driver with upto 25% Speed 
improvement Including a Second 8 inch Disk Controller 
Driver (C:+D:) >>Tarbell SD or DD, CCS, or AMD SBC. 
Includes Drivers for Fast Mapped Video, AY3-8910 port 
EPSON, TTY40, Sysgen/Format/Diskcopy and Submit Files 
(requires MOVCPM and Vector or TDL Z80 Assembler) 


*CP/M is a Registered Trademark of Digital Research 









Dial 213/348-7909 to Get Free Product Brothure 


HAVVKEYE 23914 MOBILE 
GRAF ix CANOGA PARK 


CA 91307 'JSA 
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AT LAST: 


ANEW 100K 
DEALING WITH ====emieaam 
ASSEMBLY 


LANGUAGE 
FOR CP/M* 


SYSTEM USERS 


CP/M is a registered trademark 
of Digital Research, Inc. 









APPLICATIONS 


Introduction to CP/M Assembly Sar eee 
Language is a step-by-step instruc- th 
tion manual on how to construct 

simple programs operating in CP/M that work! 

The full size (82x11) perfect-bound 180 pages present the 

reader with various ways of inputting and outputting data to a terminal, 
as well as sending data to a line printer. Since the I/O methods used 
are based on CP/M function constructions, the programs are meant 
to be interchangeable with “standard” CP/M systems. The reader can 
immediately “talk” with his computer in assembly language. Only 
minimal prior exposure to assembly language is required. Two 
useful programs are constructed to demonstrate CP/M techniques: 
Single-drive copy program (sequential filing); Data base program 
(random access filing). Also included is a simple game program 
demonstrating some basic game programming techniques and a short 
section on program troubleshooting. 


TO ORDER SEND: $15.95 PLUS $1.25 FOR POSTAGE AND HAND- 


LING (EUROPE—ADD $7.00 FOR POSTAGE) (CALIFORNIA RES. 
ADD 6% SALES TAX) TO: 


EXECUTIVE COMPUTER 


DEPT. F, P.O. BOX 222178, CARMEL, CA 93922, (408) 375-DATA 
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Don’t underestimate the power of an original DDJ T-Shirt! Thousands of 
loyal DDJ readers requested them and after much anticipation they are 
finally available. These handsome royal blue T-Shirts are made of a fine 


ey | PU ay E R | a polyester/ cotton blend. The cost of your priceless DDJ T-Shirt is ony $6.50. 

alisthenics 5. ( )rthodoatia (T= Use the attached coupon to order your T-Shirt today. Supply is limited, so 

Ruining Laie Without Ouerbye de don’t delay. Sign up as a Donating Subscriber (see masthead) and receive a 
T-SHIRT FREE! 
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ORDER FORM 


Make check or money order payable to: 


Dr. Dobb’s Journal 
P.O. Box E 
Menlo Park, CA 94025 






































Indicate Quantity: ___S . peat, Serewae. € E ____ Check enclosed ea ; 
Total Quantity x $6.50 = Charge my: AmEx____. Visa ___ Master Card. ___ 
(Sales tax is already included) Account No.. See , 
Add Shipping & Handling + 1.25 Exp. date Signature 
Add $1.00 for shipping Name 
for each additional T- Shirt = eT Sok Saran eee Address . naa es ; 
City/State___ orleans, 
Total Amount Phone. ; : 3 T3 
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CP/M EXCHANGE 


by Robert Blum 








Take a Look in the Public Domain... 


Public domain software libraries 
continue to grow and the number of com- 
puterists involved in related activities is 
virtually exploding. The two predominate 
groups responsible for cataloging and dis- 
tributing public domain software are the 
CP/M Users Group (CPMUG) and the 
Special Interest Group for Microcomput- 
ers (SIG/M). Collectively they offer over 
140 volumes (almost 23 Mbytes) crammed 
full of programs. Many smaller groups 
specializing in specific programming lan- 
guages and machines exist. Most have 
program libraries and are responsible for 
many of the software contributions of 
the larger groups. 

CPMUG (1651 Third Avenue, New 
York, New York 10028) is the single larg- 
est distributor of CP/M public domain 
software, with 85 volumes in their library. 
No matter what your needs, from utilities 
to BASIC business software, it can be 
found in their catalog. At a nominal cost 
of $12 per volume, a better bargain can’t 
be found. Unfortunately, one stumbling 
block exists. With each new computer 
comes a new disk format and stocking all 
of them is beyond the resources of most 
groups. In response to this need, a few 
commerical concerns are now offering 
copies of the original disks in many of the 
more popular disk formats. 


What is desperately needed is some 
universal form of machine-readable me- 
dia. Since none are currently available, 
two alternate approaches can be used. 
The least costly is ‘‘paperware.’’ Even 
though the cost is low, many hours will 
be spent keying in the program and then 
finding the transcription errors. The sec- 
ond approach requires the purchase of a 
modem. With a 300 baud modem you 
will have ready access to a number of 
Remote CP/M (RCPM) systems across the 
country. Many of them offer complete 
libraries of public domain software in 
addition to an amazing number of other 
useful programs. 


One often-overlooked point is the 
educational value of public domain soft- 
ware. Many fine books and reference 
documents are available to provide the 
prerequisite training on the computers 
instruction set and the CP/M interface. 
But none can rival the first-hand experi- 
ence of stepping through a working pro- 
gram with a debugger. As if by magic, the 
mysteries are solved as you watch each 
instruction execute. 


If a list of the foremost activists in 
public domain software were made, Ward 
Christensen would rank in the top ten. 
His involvement with microcomputers 
began with their inception. As librarian of 
CPMUG, he exemplifies dedication to the 
public domain scene. To ease the log jam 
of phone calls to his RCPM system he has 
added a second phone line as an “‘admin- 
istrative’? and general CP/M message sys- 
tem (messages deal with bug fixes, review- 
ing and cataloging of CPMUG disks, etc.). 
Use 312-849-1132 (and the new ‘M” 
command and ‘‘CPMUG” password) to 
download the current CPMUG catalog of 
programs (not the individual files), retrieve 
a copy of the user group contribution 
form, send in a contribution, etc. The 
original CBBS in Chicago is at 312-545- 
8086, which supports baud rates of 110- 
600. Press return several times for speed 
detect. When using these numbers, be 
patient — they get a lot of activity. 


Periodically, I will be reviewing 
programs from the public domain that 
provide topical information. For the 
edification of those who are interested, I 
will offer complete program listings along 
with the review at my cost of printing 
and shipping. 


...at SD-44 

Displaying the diskette directory is 
probably one of the most-used functions 
of CP/M. Unfortunately, the built-in 
command DIR produces an _ unsorted, 
single-column display which is hardly 
satisfactory when several hundred file 
names are to be scanned. CPMUG volume 
85 contains SD-44, which I believe is the 
latest version in a series of full- feathered 
directory programs. The display produced 
is sorted, and three columns wide. Each 
file’s size is given and the total space re- 
maining on the diskette is calculated. This 
may sound like a description of many 
others but SD-44 offers a number of other 
features. The eight options recognized are: 


S — system option: includes files in the 
output. 


F — file option: echoes the directory out- 
put to a disk file on the default drive, 
named ‘“‘SD.DIR.” If SD.DIR already 
exists, then the directory output will 
be appended to the end of the file. 
Otherwise, SD.DIR will be created as 
a new file. 


U — user option: allows the specification 
of the user number for the directory 
in the form “‘Un” where the user 
number, m, must be greater than 0 
and no larger than 15. This option 
allows no spaces between “U” and 
n, and cannot be used on pre-CP/M 
2.0 systems. 


A —all users: displays directories of all 
user areas starting at the user area 
specified in the U option. If the U 
option is omitted, displays start 
with the default user area and 
continue up to MAXUSR. 

R —reset option: provides automatic re- 
setting of the disk prior to perform- 
ing directory seach, updating the 
allocation vector. Same as doing a 
Ctrl-C when changing disks, but 
handy if you didn’t (such as when 
running a SUBMIT file). The RESFLG 
equate will force the R option un- 
conditionally each time SD is run. 

N —no page option: unconditionally dis- 
ables the page pause option. SD will 
not put the page-pause prompt into 
the output file. 

P — printer option: forces all console out- 
put to be echoed to the CP/M list 
device, with the most significant bit 
set to 0. 


D —all disk option: allows SD to search 
all disk drives online starting with the 
disk drive specified or implied in the 
command line filename. 


Outside of the obvious usefulness of 
SD-44, most of the techniques described 
in my series on BIOS internals can be 
found in this program. If you want a 
paperware copy of SD-44 and its docu- 
mentation, send $5.00 to the address at 
the end of this column. 


More on CP/M Plus 


The real story behind CP/M Plus’s 
features unfolds when the BDOS func- 
tions are examined. Rather than include 
all the BDOS functions, Table I (page 82) 
only lists the additions and changes. 


Many of the BDOS functions are 
now MP/M compatible. This fact makes 
me wonder what DR has in mind for fu- 
ture releases; possibly adding concurrent 
operation to CP/M or providing a natural 
upgrade path to MP/M. Whatever the 
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case, to make full use of all the new 
features will require some changes to the 


a 
Leap into 
licati . Whether CP/M 2.2 . 
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code has been kept to a minimum, the with 
success ratio should be high. ay 


Meth cionth ‘Iwill continue with Aztec a. 
memory mapping and more on CP/M mse * 
Plus’s internals. You can reach me directly sae 
if you want to order paperware for 
SD-44, or to discuss subjects from this 
column, at: Bob Blum, 5536 Colbert 
Trail, Norcross, Georgia 30092; (404) 
449-8948. 





C COMPILERS-COMMON FEATURES: 


* UNIX VER 7 compatibility * standard float, double, and long support ¢ run time library with full 1/O 
and source ¢ fast compilation and execution « full language. 


DB, AZTEC Cll CP/M (MP/M) $199 
* produces relocatable 8080 source code ® assembler and linker supplied * optional M80 interface « 
SID/ZSID debugger interface ® library utility © APPLE requires Z80 and 16K card 


‘ AZTEC C][ APPLE DOS $199 
(Table I begins on page 82) * relocating assembler supplied * APPLE SHELL © VED editor « library and other utilities 


® requires 16K card 


C86 IBMPC MSDOS CP/M-86 $249 
* directly produces 8088/8086 object code « linker supplied 


Reader Ballot Manuals—$30 ORDER BY PHONE OR BY MAIL-Specify products and disk format 
Vote for your favorite feature/article. 


Circle Reader Service No. 249 Mf | NJ xX 
software systems 
Box 55, Shrewsbury, N.J. 07701 (201) 780-4004 
CP/M FORMATS: 8” STD. HEATH, APPLE, OSBORNE, NORTHSTAR, OUTSIDE USA-Add $10 In NJ. add 5% sales tax 
Circle no. 49 on reader service card. 














From Plum Hall an Introductory Book on C. 


It has been several years in the making and now it is here. Learning to 
Program in C, by Thomas Plum, teaches C language from the ground up. With 


or without previous programming experience, anyone acquainted with 
computers will find a clear description of how C works, 


You will find guidelines for writing portable programs that will run on 
a wide variety of modern computers — micro, mini, and mainframe, with 
excellent efficiency in all these environments. 


Topic areas include: 
e Environmental details - starting C 
¢ Data and variables - using the memory 
© Operators and expressions - intuitive reasons for C precedence. 
¢ Control structure - readability rules 
© Functions - print and scan made easy 


e Case study - full Blackjack source, from design to documentation 
® Pointer, struct clarified 


P if UM H A ite L 1 Spruce Ave, Cardiff, NJ 08232 
Phone orders: 609-927-3770 














& explains Ba step-by-step Sas SS SS A LS A EL A 
: rT 3 | send int ti Please send me ____ copies of “Learning to Program in C 
e practical how to ae iad, ait eke at $25. (plus 6% tor NJ. residents) ea. enclosedfind$ 
h 
approac 5 on C and UNIX™ NAME : 
e describes what happens ADDRESS c 
in the computer i 


|, ey a em a RR! | RRR ert dad 9» spiseet ala . 
CO) Check 
372 pages © 7%2X10 ® Price $25 5 O Mastercard OVisa [Expiration Date _____ 


O American Express TWIG: - oo ie ae aes ee 
Vine Gee Ge GR EE EG WE EE A SR GR GS Ge Gee TS ee We Do eee 


Card No. 
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Peterborough 
Distribution 


Services 


“Programming Language Translation’ 
(Halstead Press) is “a major help to 
anyone interested in how Pascal works” 
(DDJ Sept., 1982). 

“Programming Language Translation” 
contains an excellent Pascal pseudo- 
code compiler and interpreter. Originally 
written by Niklaus Wirth and translated 
to UCSD Pascal by R. E. Berry, the 
Pascal-S compiler is now fully-functional 
under Apple Pascal. We’ve already typed 
and checked all 2,000 lines for your con- 
venience. Experiment with an actual 
Pascal compiler. In addition, the “Service 
Update” newsletter describes how other 
Pascal-S users’ are using the compiler. 

The book alone is a $41.00 value. Book 
+ full source code on 5%” Apple Pascal 
diskette is only $54.30. 

Pascal File Selector. Designed and 
written by Carl Helmer’s North American 
Technology, Inc., this Pascal unit allows 
interactive, menu-driven file selection 
and creation. A file is selected from any 
mounted diskette with as few as 5 key- 
strokes. Also included is a Utilities unit 
filled with useful, system-level functions 
and procedures. Full source code pro- | 
vided on 5%” Apple diskette for only 
$30.00. 

With every order receive a free sub- 
scription to our newsletter ‘‘Service Up- 
date.” We provide continual support for 
every product we distribute. 








































Name 
Address 
City _____ State 

















Zip Code 


MC (C0 # 
VISA © Inter Bank # 
Signature 






Exp. Date __ 











1] PASCAL-S COMPILER....... $54.30 
CINWATLFILE SELECTOR ccaes $30.00 
LC INFORMATION 






SHIPPING INCLUDED 
(ALLOW 4-6 WEEKS FOR DELIVERY) 


Ol =10) a Sele! 


Peterborough NH 03458 
(603) 924-3843 
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Lon 


38 — 


39 — 


At 


42 — 


43 = 


44 — 


AS 


46 — 


47 — 


48 — 


49 — 


50 — 


S59 — 


60 — 


Table I. 


CP/M Plus BDOS function addition and changes. 


Auxiliary Input: same as CP/M 
2.2 reader input. 

Auxiliary Output: same as CP/M 
2.2 punch output. 

Auxiliary Input status: new func- 
tion call to test whether data is 
available at the auxiliary input 
device. Under CP/M 2.2 was 
Get I/O Byte. 

Auxiliary Output status: new 
function call to test whether 
data can be sent to the auxiliary 
device. Under CP/M 2.2 was 
Set I/O Byte. 

Access Drive: MP/M function call, 
provided for compatibility only. 


Free Drive: MP/M function call, 
provided for compatibility only. 


Test and Write Record: MP/M 
function call, provided for com- 
patibility only. 

Lock Record: MP/M function 
call, provided for compatibility 
only. 

Unlock Record: MP/M function 
call, provided for compatibility 
only. 

Set Multi-Sector Count: allows 
from 1 to 128 128-byte sectors 
to be read or written in one 
operation. MP/M compatible. 


Set BDOS Error Mode: deter- 
mines how errors are handled. 
MP/M compatible. 


Get Disk Free Space: determines 
how many free 128-byte sectors 
there are on the specified drive. 
MP/M compatible. 


Chain to Program: allows auto- 
matic chaining from one program 
to another. MP/M compatible. 


Flush Buffers: forces any remain- 
ing records marked for writing 
to be written. MP/M compatible. 


Get/Set System Control Block: 
allows the system control block 
to be changed. 

Direct BIOS Calls: allows direct 
BIOS calls to be made through 
BDOS functions. CP/M Plus no 
longer supports direct BIOS calls. 
Load Overlay: load a Resident 
System Extension (RSX) or 
overlay into memory. 

Call Resident System Extension: 


special function for loading 
RSXs only. 


99 — Truncate File: 


98 — Free Blocks: returns to free 


space any blocks that have been 
allocated, but not permanently 
recorded on disk. 

truncates the 
specified file to the indicated 
random record number. 


100— Set Directory Label: creates or 


updates the directory label which 
indicates what extended direc- 
tory options are active. For 
example, perform access date 
and time stamping. MP/M com- 
patible. 


101— Return Directory Label Data: 


returns the directory label data 
byte. MP/M compatible. 


102 — Read File Date Stamps and Pass- 


word Mode: returns password 
and time stamp mode for speci- 
fied file. MP/M compatible. 


103— Write File XFCB: creates or up- 


dates the XFCB for a specified 
file. MP/M compatible. 


104— Set Date and Time: sets the 


internal date and time. MP/M 
compatible. 


105— Get Date and Time: returns the 


internal date and time. MP/M 
compatible. 


106 — Set Default Password: allows set- 


ting of a file password before a 
file is accessed. MP/M compatible. 


107— Return Serial Number: returns 


the 6-byte CP/M Plus serial 
number. 


108— Get/Set Program Return Code: 


allows a program to set a termi- 
nation code for access by other 
programs which may follow. 


109— Get/Set Console Mode: allows 


setting of control parameters for 
certain BDOS console functions. 


110— Get/Set Output Delimiter: allows 


the string delimiter used in func- 
tion 9 to be set to another value. 


111— Print Block: print the block of 


data pointed to by a CCB on the 
console. 


112— List Block: print the block of 


data pointed to by a CCB on the 
system list device. 


152-- Parse Filename: parse a filename 


and prepare a file control block 
for use. 





Dr. Dobb’s Journal, Number 80, June 1983 


OF INTEREST 


by Michael Wiesenberg 






Impressions of the 
West Coast Computer Faire 


It seems de rigueur for computer 
columnists to chronicle their impres- 
sions of the Computer Faire, so here 
are mine. As you all know, the West 
Coast Computer Faire, run by Jim 
Warren (one of DDJ’s first editors), 
happens each spring at San Francisco’s 
Civic Auditorium and Brooks Hall, 
with symposia and workshops at the 
San Franciscan and Holiday Inn hotels. 
Many call the Faire the most im portant 
microcomputer conference of the year. 

It was more crowded than last 
year. Also more hype. The most im- 
pressive display was that of Perfect 
Software, obviously designed with great 
thought by marketing folks. Some 
computer businesses are just beginning 
to realize that good products don’t 
necessarily sell themselves; they have 
to be sold. The Perfect folks used the 
principle well, as they lured you up a 
carpeted ramp lit on either side by 
flashing bulbs synchronized to simulate 
a lighted path travelling into the dark- 
ened interior recesses wherein brilliant 
blue laser blasts pierced clouds of 
smoke. Displays and booths everywhere 
else in the Faire were out in the open 
and jammed up against the wares of 
other companies; but PS had, probably 
at considerable expense, bought a large 
corner nook and turned it into a mys- 
terious subterranean cave. As you 
stepped off the ramp, your eyes 
slowly adjusted to the gloom and you 
found yourself on a railed platform 
from which two staircases descended 
into a maze of monitors on pedestals, 
all displaying Perfect Software prod- 
ucts. Giant frameworks of steel girders 
supported laser-emitting devices that 
randomly shot blue pencils of light 
above the heads of the crowd, creating 
moire patterns in clouds of dry-ice 
steam. A disembodied, amplified, 
sepulchral voice, describing the virtues 
of various Perfect products, floated 
through and around the din of the 
crowd. 

Elsewhere, Texas Instruments put 
on a robot show. A wheeled contrap- 
tion carrying a TI 99/4A on a tray, 
having a TV lens for a face and a 
monitor mirroring all it saw where its 
mouth belonged, wandered through 
the crowd near the TI booth, trading 
wisecracks witha “‘real’’ person dressed 
up as Charlie Chaplin (and symbolizing, 
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perhaps, the dominance of the TI ma- 
chine over IBM?) and carrying on 
apparently intelligent conversations 
with bystanders. I am familiar enough 
with robotics to know that this “‘robot’’ 
must have been controlled at a distance 
by human beings. I looked around for, 
but could not find, some seemingly 
innocent person perpetually draining a 
coffee cup, but in actuality speaking 
into a microphone concealed therein. 

Both software and hardware were 
on sale for greatly reduced prices. If 
you know precisely what you’re look- 
ing for, computer fairs probably have 
the best bargains anywhere. But, 
caveat emptor: not all of the exhibitors 
will be back next year. 

The machine that impressed me 
the most was the Dynalogic Hyperion, 
the truly portable, beautifully designed 
16-bit system that I described last 
month. The version saw, the Hyperion 
Plus, costs close to $5000, but you can 
get one without quite so many bells 
and whistles for under $3400. 

The machine that may well start 
a new trend in quality low-cost com- 
puting is the Humdinger. This tiny 
Z80 color computer with CP/M (de- 
scribed in detail below) costs but $129 
yet offers features found only in com- 
puters costing literally thousands more. 

Ah, yes, then there’s Lisa. Wonder- 
ful machine. Maybe the best user inter- 
face fora micro commercially available. 
The mouse is easy to use, moves quick- 
ly anywhere on the Screen, and instan- 
taneously displays information any 
way you want it, without having to 
touch the keyboard. But $10,000? If 
they want to compete in the same 
ballgame with the PC, Apple will have 
to price Lisa in the same ballpark. 

Through all the chaos glided Jim 
Warren on roller skates, constantly co- 
ordinating his show through a walkie- 
talkie that rarely left his lips. 


In addition to manufacturers with 
products to display, acquisition editors 
for major publishers kept an eye out 
for potential authors of promising ma- 
terial, and software makers were on 
the lookout for new programs. If you 
have a book or software to sell, you’ll 
find buyers at the Faire. 

On Sunday at 5 p.m., the sated 
crowds were quickly hustled out into 
some of the worst rain San Francisco 
had experienced in years. 

I was suffering from sensory over- 
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load, but glad I had attended. The 

same thing happens when:I spend 

more than a few hours at a first-rate 
art museum. 





Hard PHD or 
Toaster for Your System 


The Computer Service Company 
offers 16 Mb Winchesters for most Sys- 
tems for $2595, 8 Mb for $2195, and 
double 5S Mb removable subsystems with 
two free cartridges for $2795. These are 
variously called PHD 8x8, PHD 4x4, 
PHD 8x 8KP (for KayPro, for example), 
PHD 8x8S (S-100), all of which are 
54-inch drives, and Toaster (two 3.9- 
inch drives). The systems include drive, 
parallel interface, Z80 adapter (or adap- 
ters for virtually any other computer), 
transportability between computers, 
power supply, diagnostics, format, 
sector sparing program, driver, six - 
month warranty, and (here’s the best 
part) free installation by The Comput- 
er Service Company, FOB Mountain 
View, California. While I’m giving them 
a mention, The Computer Service 
Company also rents all kinds of com- 
puter equipment, from Osbornes at $5 
a day, dot matrix printers at $2.50, 
floppy disk drives at $2.5 0, hard disks 
at $7.50, to monitors at $1.25 (add 
about one-third to include Service), 
and they offer phone consultation on 
all forms of hardware and software 
maintenance and design for $35 per 
hour. Reader Service No. 101. 
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Graphics Like A Word Processor 


Graphics Processing System, for 
48K Apple II Plus, from Stoneware, 
manipulates and edits images like a 
word processor. It will also mix and 
change colors at will, edit or erase a 
portion of a picture merely by defining 
its boundaries, zoom or reduce any 
portion of a picture four or 16 times 
(with the stored image having a greater 
resolution than that on screen, repro- 
ducible depending on the capabilities 
of the printer or plotter), rotate images 
in two dimensions, duplicate images 
on screen and to and from disk, change 
proportionality of portions or all of 
images, overlay in separate colors, and 
access the 16K RAM card. The system 
is compatible with graphics tablets, 
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light pens, and various plotters and 
graphics printers. $179. Reader Service 
No. 103. 


A Good Case 


Comp Cases by the Computer Case 
Company make almost any small sys- 
tem portable, inexpensively. Literally a 
custom built suitcase that exactly fits 
your IBM PC, Apple, TRS-80, etc., 
various monitors, printers, and other 
accessories, the Comp Case is built 
from mahogany plywood, has padded 
handles, brass hardware, key locks, 
vinyl cover, triple-thick, saddle-stitched 
vinyl at the edges, rubber feet, custom 
interior foam padding, nylon velcro 
straps, and interlocking top and base. 
Once your system is in a Comp Case, 
you need never remove it, so you can 
leave cabling in place and easily set up 
the system. Comp Cases vary in price 
from less than $100 for many peripheral 
or accessory cases, to $109 for a hous- 
ing for Apple II with one drive, to 
$129 for Apple II with two drives and 
a monitor or TRS-80 Model III, to 
$139 for Apple III with drives and 
printer. Reader Service No. 105. 








A Real Humdinger 


The Humdinger from Venture Mi- 
cro is a Z80 color computer with a 
‘real’? keyboard, 4K RAM, 8K BASIC 
in ROM, eight-color video, four-voice 
sound generator, free game cartridge, 
RF modulator, and parallel, serial, cas- 
sette, cartridge, joystick, expansion, 
and EPROM interfaces, for $129. You 
can add 16K RAM for $39.95, 64K for 
$99, voice synthesizer for $69.95, disk 
controller for $75, 5%4-inch drive for 
$210, CP/M for $79, word processor 
for $45, Pascal for $59, an 8088 for 
$119 (you'll also need the 8088 BASIC 
ROM for $124.95), and an 8087 for 
$299, travel case, graphics table, 80-by- 
24 video, user-defined graphics, real 
time clock calendar, editor/assembler, 
various game cartridges and cassettes, 
extended BASIC, COBOL, Forth, C, 
Logo, and Pilot. Ten new cartridge 
and cassette programs per month are 
planned. Reader Service No. 107. 





Dot Matrix Printer 
with Daisy Wheel Quality 


The Santec S700 Printer from 
Western Technology offers letter qual- 
ity by printing each line four times 
with minute advances between passes, 
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at a throughput of 32 to 58 cps. Since 
it prints 960 dots per inch, you'll need 
a magnifying glass to distinguish this 
mode from a daisy wheel output. A 
correspondence mode makes two passes 
at each line, with quality better than 
that of the best dot matrix printers, at 
a throughput of 65 to 195 cps. And 
the draft quality mode is as good as 
the best dot matrix printers. Up to 12 
fonts, ranging in size from 7 to 12 
points, can be intermingled simultane- 
ously, with no pause in printing. For- 
matting commands, inserted in the 
text, are performed by the printer, 
rather than the computer, with total 
user control over margins, spacing, tab 
settings, justification (incremental and 
proportional), centering, boldface, un- 
derlining, and graphics. This remarkable 
printer costs under $4000. Spellbinder, 
the CP/M word processing software 
from Lexisoft, has a special version 
configured for the Santec. Reader Ser- 
vice No. 111. 


i 


Two APLs 


VIZ:: APL from EASI APL Sys- 
tems is virtual-memory APL for Z80 
microcomputers, and some 16-bit 
microcomputers with a Z80 board. 
This full implementation of APL has 
an overlaid interpreter and virtual 
work area limited only by disk space, 
runs under CP/M, interfaces with 
high-resolution graphics, uses double- 
precision, floating-point arithmetic, 
and has dynamic symbol table alloca- 
tion. I saw the language demonstrated 


on an Osborne I at the West Coast 
Computer Faire, and was impressed 
with its fast, direct-mode vector calcu- 
lations and transformations. No price 
on this one, but use the Bingo Card 
for more information. Reader Service 
No. 115. 

APL.68000 by the Computer 
Company is a full APL that runs under 
CP/M-68K, UNIX, and VersaDOS on 
the Sage Models 2 and 4, Forward 
Technology’s Gateway Work Station 
microcomputers, the Pixel 1O0AP, the 
Corvus Concept, and ‘‘soon’’ on all 
68000-based micros. Reader Service 
No. P17. 


————_$— 


1/4 


The Forth-79 Version 2 compiler 
from MicroMotion for most Z80 CP/Ms 
1.4 and 2.whatever, including Apple, 
comes with screen editor, macroassem- 
bler, string processing, three-bit arith- 
metic, floating point, 200 pages of 
tutorial and reference documentation, 
and hi-res for Apple and NorthStar, 
and costs from $99.95 (doesn’t any- 
thing ever sell for an even $100?) to 
$139.95. Reader Service No. 119. 


a 


Wooden Clay ? 


Perhaps one of the better pieces 
of inexpensive software for the IBM 
PC seen at the West Coast Computer 
Faire was Cosmic Nightware from 
Wood & Clay Hi-Tech Gameware. 
“Earth explodes,” they say (I saw it 
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Hot Little Printer 


The EUY-3T thermal printer from 
Panasonic is about the size of a good 
5-cent cigar (‘‘What this country needs 
is a good...’ inexpensive printer), 
4.69 by 1.79 by 2.64 inches. With dot- 
addressable graphics, 40 characters per 


line, battery power, bi-directional 
printing at 1.2 lines per second, and a 
weight of 14 ounces, the printer will 


cost under $100 in OEM quantities. 
Reader Service No. 109. 
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Floating 
Point 


‘FPP’ (Floating point) software for use on 
any CP/M® computer system provides 
12 digit accuracy. 


° 12 digit significand stored as packed BCD 

° BCD arithmetic assures accuracy 

® guard digit on all operations 

* exponent from -126 to+127 

° written in assembly language — very fast. 

® available in object or source form 

* companion function package contains natural 
logs, common logs, sar root, exponentiation, 
sine, cosine, tangent and their inverse func- 
tions, etc. All functions computable to 12 digits 
accuracy using very latest algorithums; very 
fast. 

* compatible with our RAID debug system 


For more information on ‘FPP’ write or Call: 


Southern Computer Systems, Inc. 


® 2304 12th Avenue North 
Birmingham, Alabama 35234 


(205) 933-1659 


CP/M® is a registered trade mark of Digital Research 


Circle no. 77 on reader service card. 
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CROSS ASSEMBLER 
FOR CP/M-—80 $ 260 














MOTOROLA SYNTAX MACROS 







LINKAGE EDITOR CONDITIONALS 





STRUCTURED WRITTEN IN C 






Quelo (206)784-8018 


843 NW 54th mornings 
Seattle, Wa. 98107 Dick Curtiss 








CP/M is a trademark of Digital Research 
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PRESENTS 


RED 


A TEXT EDITOR IN ¢ 











¢ available for small-C and BDS C 
(specify when ordering) 

¢ complete SOURCE CODE provided 

¢ handles huge files 

° block move and copy commands 

° supports slow terminals with type 
ahead and screen interrupts 

¢ splits long lines automatically 

¢ works with any video terminal with 
cursor addressing 


¢ supplied on single density, IBM 
format, 8 inch disks for CP/M 
systems with at least 56K memory 


¢ portable to other machines 
and operating systems 


Price: $50. 


to order, or for more information, 
contact: 


Edward K. Ream 
1850 Summit Ave. 
Madison, WI 53705 
(608)231-2952 









happen — wonderful graphics), ‘‘and 
you're the only one left! All the phan- 
toms of the universe are released, and 
you have to fight enemies so real you 
won’t believe it’s a dream.”’ The disk 
costs $32.50. If you want real arcade 
action on your PC, you’ll want to or- 
der joystick controllers at $29.95 each 
from W&C. Other games available 
include Falklands Fury, with “‘all the 
action of real life warfare’? (whoopee!, 
what fun!) and Jungle Madness, in 
which you “‘play Tarzan, swing from 
vines, and fight off savage pygmies,” 
also $32.50 each. (California, add 6.5% 
sales tax.) Reader Service No. 121. 


The Sorcerer Lives! 


I often think my computer system 
is unusual and incompatible with any- 
one else’s. When I say I have a Sorcerer, 
most people say, ‘“‘“A what?” So I’m 
always pleased to find someone trying 
to keep this wonderful Z80 machine 
alive. In this case, it’s ISIS (the Inter- 
national Sorcerer Information Service), 
a “not-for-profit” monthly newsletter 
to give Sorcerer owners a means of ex- 
changing information. Membership is 
$15 in Canadian funds in Canada, and 


when breakpoint hit 
_*Many other inspired fe 
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US dollars elsewhere. Contact ISIS, c/o 
Maurice Dow, 84 Camberley Cres., 
Brampton, Ontario, Canada L6V 3L4; 
or use the reader service card. Reader 
Service No. 123. 




























Clock Your Apple 


dat.a.clock, for Apple II, II Plus, 
and Ile, from P & B Research Consul- 
tants keeps time in date, month, and 
year, with a two- to three-year battery, 
has an externally accessible EPROM, 
and costs $55 in kit, or $85 assembled 
(plus $2 p&h). Reader Service No. 113. 


UULULC CAC SESCreMeler ess ose! 








Commodore Camaraderie 


A VIC-20 users group is being 
formed by the New York Amateur 
Computer Club. Although the UG will 
meet in New York City, NYACC is 
soliciting members throughout the 
country to join ‘‘on a correspondence 
basis.’ Both types of VIC-20 users are 
sought, computer novices and the 
knowledgeable who bought the ma- 
chine “‘just for the fun of it. What we 
would like to do is put these two types 
together and get some synergism 
going.” If enough interest is generated, 
NYACC will plan to expand to other 
Commodore machines, like the 64 and 
the Pet. Reader Service No. 125. 


Make a Beeline for the C Line 


The C Line, a free public access 
electronic bulletin board for users of 
UNIX and C, has close to two mega- 
bytes of public domain C software just 
itching to be downloaded onto the 
computers of those with any standard 
terminal or computer with modem 
who dial (201) 625-1797, 8 pm to 9 am 
weekdays (Eastern time) and 24 hours 
weekends. The C Line, say sponsors In- 


vf aa 


demark of International Arrangements, Inc. 
< of International Business Machines Corp. 


Circle no. 87 on reader service card. 


Dr. Dobb’s Journal, Number 80, June 1983 


foPro Systems, publishers of UNIQUE, 
the UNIX industry newsletter, and 
Perchwell Corporation, a management 
research/consulting firm specializing in 
UNIX, “‘expects to receive several car- 
riage returns initially” (ah, anthropo- 
morphisms abound!), ‘‘and will auto- 
matically adjust itself to the transmis- 
sion speed being used, from 110 to 710 
baud.”’ Reader Service No. 129. 


Confer Intelligently 


The National Conference on Arti- 
ficial Intelligence, sponsored by the 


American Association for Artificial 
Intelligence, takes place August 22 to 
26, 1983, at the Washington (D.C.) 
Hilton Hotel. Reader Service No. 131. 


Keeping TABs 


TAB Books’ Spring/Summer cata- 
log, with 65 new books and over 600 
titles, includes these about computers: 


Graphics Programs for the IBM PC 
(256 pages, $12.95 paper, $18.95 hard- 
cover), 33 Games of Skill and Chance 
for the IBM PC (256/$14.95/$21.95), 


and, possibly a good one for would-be 
hardware tech writers, Beginner’s Guide 
to Reading Schematics (140/$8.95/ 
$13.95), all by Robert Traister. 


100 Ready-to-Run Programs and Sub- 
routines for the IBM PC, by Jeff Bretz 
and John Craig (320/$15.95/$22.95). 
Programming Your Atari Computer, 
by Mark Thompson (280/$10.95/ 
$16.95). 


Advanced Programming Techniques 
for Your Atari, including Graphics and 
Voice Programs, by Linda Schreiber 
(224/$13.95/$19.95). 


25 Graphics Programs in Microsoft 
BASIC, by Timothy O’Malley (160/ 
$10.95/$17.95). 


101 Projects for the Z-80, by Frank 
Tedeschi and Robert Colon (368/ 
$16.95/$23.95). 


Troubleshooting and Repairing Person- 
al Computers, by Art Margolis (320/ 
$13.95/$19.95). 


Microcomputer-Controlled Toys and 
Games and How They Work, by Van 
Waterford (240/$9.95/$17.95). 


Experiments in Four Dimensions, by 
David Heiserman (288/$12.95/$21.95). 











You Read Dr. Dobb’s Journal 
And You Don’t Subscribe? 


Learning Simulation Techniques on a 
Microcomputer Playing Blackjack and 
Other Monte Carlo Games, by Pat 
Macaluso (154/$10.95/$ 16.95). 


Basic BASIC-English Dictionary for 
the Apple, PET, and TRS-80, by Larry 
Noonan (154/$17.95, hard cover only). 


The Sinclair ZX81, by Randle Hurley 
(182/$16.95, hard cover only). 


Electronic Components Handbook for 
Circuit Designers, by R.H. Warring, 
(336/$13.95/$21.95). 


Reader Service No. 127. 


DD, 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 251 


FULL C 


PCDOS — CP/M-86 — MPM-86 — CCP/M-86 


$100 


OUTSTANDING PRICE/PERFORMANCE 
“SIEVE” Benchmark 
135 bytes compiled — 6144 bytes linked 
65 sec. compile (disk) — 11.5 sec. run (10 iterations) 


FULL DEVELOPMENT PACKAGE 


C Compiler, Assembler, Linker, Librarian and 
Full Screen Editor 


COMPLETE IMPLEMENTATION 
FULL K & R — plus — STDIO LIBRARY 
8087 or Software Floating Point 


To order specify OS & DISK SIZE/FORMAT. 
Calif. residents add 642% sales tax. 


C WARE 


Save $13 off newsstand prices for 2 yrs. 
Save $5 for 1 yr. 
















Can you afford to miss an issue with information vital 
to your interests? As a subscriber you can look for- 
ward to articles on Small-C, FORTH, CP/M, S-100, 
Compiler optimization, Concurrent Programming and 
more, delivered right to your door. And you’ll never 
miss the issue that covers your project. 


DR. DOBB’S JOURNAL 
P.O. Box E 
Menlo Park, CA 94025 


SOSCOOSSESSSHESESSSESESIHFSSHSHSAS OBE SSSEHOSSSESSOSSSFESSSSHGSASSSSISSSSSS SHH HSHSSHSSESSESSSESESBAOHOSSS 





____ | enclose a check/money order 
___ Charge my Visa, Master Card, American Express 
___. Please bill me later 








Name 





Address 

Credit Card Exp. date 1607 NEW BRUNSWICK 

Acct No. SUNNYVALE, CA 94087 

Signature PCDOS Trademark IBM — CP/M Trademark Digital Research 
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MicroScript' $99 


State of the Art Text Formatter 


e generic markup 

fully definable page with multiple columns 
multiline headers, footers, and footnotes 
automatic widow and orphan suppression 
automatic section numbering 

automatic table of contents and index 
automatic bullet, number, and definition lists 
floating figures 

text alignment to left, center, right, or justify 
left and right indention with delay and duration 
bold, underscore, and proportional spacing 
macros and symbols 

multiple input files of unlimited size 

direct printer control 

IDS, Qume, Diablo, NEC, C.ITOH, and all TTY 


MicroEd "$49 


Customizable Full Screen Editor 


full cursor control by character, word, or line 
position to top or bottom of window or file 
scroll by line, half window, or full window 
global or selective find and replace 

delete by character, word, line, or block 
read external files into current file 

copy, move, and write blocks of text 

insert, overlay, or wordwrap text 

all cursor addressable VDTs 


Postpaid within U.S., outside U.S. add $10, CA residents add 6%. 
8” SS/SD CP/M-80*, and CP/M-86*, 5.25” SS/DD PC-DOS. 


Microlype™ 
6531 Crown Blvd., Suite 3A, San Jose, CA 95120 
(408) 997-5026 


* CP/M-80, CP/M-86 are trademarks of Digital Research, 
PC-DOS is a trademark of IBM Corporation. 
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Dr. Dobb's Journal 


For Users of Small Computer Systems 


Each issue includes: 

e valuable software tools 

e algorithms & problem solving 
e industry news 

e important product reviews 


With in-depth coverage of: 

e telecommunications 

© systems programming 

e language development 

e machine independent 
programs 


and much, much more! 





Professionals 
Prefer Q/C. 


For only $95, Q/C is a professional, fully-supported C com- 
piler for CP/M. Q/C supports a large subset of C, and is upward 
compatible with the UNIX Version 7 C compiler from Bell Labs. 
The Q/C library includes over 50 input/output and other support 
functions, all written in C. 


When you buy Q/C, you get a working compiler that gener- 
ates assembly language. You also receive the complete source 
code for the Q/C compiler and the function library. The Q/C 
compiler is written in C, with a few functions hand-coded in 
assembler to enhance performance. Most compiler options 


can be customized to suit your taste by using the configuration 
program we supply. 


What really sets Q/C off from the competition is our 138-page 
User’s Manual. The tone of the manual is informal and per- 
sonal. Jim Colvin (the author of Q/C) tells you how to use the 
compiler, and clearly describes each library function. There’s 
even a chapter that explains in detail the “internals” of Q/C. 


Q/C is a fully-supported professional product. We continue to 
develop and enhance Q/C, and provide updates at a nominal 
cost. Write or call for details of Q/C Version 2.0. 


5266 Hollister 


tHECODE Suite 224 


Santa Barbara, CA 93111 
WORKS (805) 683-1585 


CP/M is a trademark of Digital Research. 
UNIX is a trademark of Bell Laboratories. 
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Are you ready? 


DDJ, the world’s foremost microcomputer 
publication, has been working for years to pre- 
pare its readers to be innovators, to lead the 
wave of breakthroughs in our changing tech- 
nology. 

Every issue of Dr. Dobb’s Journal helps 
one to understand the nuts and bolts of small 
computer systems. We offer entire listings of 
valuable software: our pages have included 
compilers, cross-assemblers, editors, new lan- 
guages, hardware interfaces and more — usually 
before anyone else thinks of them! 


Even more important! 


Our subscribers share insights, correspond, 
and contribute to one another’s work, more 
than any other group we know. They treat 
Dr. Dobb’s Journal as a “‘hands-on’’ publication. 

This warm cooperation has done more to 


Yes! Please enter my subscription for B7 refine software products, and generally to 

CJ 1 yr. (12 issues) $25  O 2 yrs. $47 (save $13 off newsstand) advance the state of microcomputer techno- 
O) Please bill me 1 I enclose check /money order logy, than perhaps any other resource. And it is 
Name available to you through our pages! 


Address 
City 


For the straight facts ....... 


If you are a serious computing professional 
or enthusiast, then you should take a very close 
look at what DDJ offers you. We’ve been on 
the cutting edge since 1976. 


Dr. Dobb’s Journal, A Publication of People’s Computer Company 
1263 El Camino Real, P.O. Box E, Menlo Park, CA 94025 
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Clinic 
(Continued from page 12) 


our CP/M 2 system had. So it was a disap- 
pointment to find that an assembly that 
ran in 25 seconds under CP/M 2 consumed 
23 seconds under CP/M 3. A ten percent 
improvement didn’t seem like much of a 
return on our investment in RAM cards. 
We set out to find out what the CP/M 3 
BDOS was doing with all those buffers. 


Inter-Bank Peeping 


We wrote an experimental tool called 
SHOWBCB. It finds and dumps the two 
chains of the BCBs to the console. This 
is not easy, because the Disk Parameter 
Header, the chain anchors, and all the 
BCBs are in bank zero, while the program 
runs in bank one. It is made possible by 
the XMOVE and MOVE BIOS functions. 
MOVE is normally an intra-bank block 
copy function. If XMOVE is called first 
to inform MOVE of the source and target 
bank numbers, the next call on MOVE 
will transfer data from a source address in 
one bank to a target address in another. 
With them, our program could get copies 
of the control blocks into bank one so it 
could display them. 

One problem slowed us down for a 
few hours. The program was written to 
play by the rules of CP/M 3, making its 


& 


BIOS calls by way of BDOS function 50. 
It turns out, however, that the BDOS uses 
MOVE (and XMOVE?) in the course of 
executing function 50. So by the time 
we reached the BIOS for the MOVE func- 
tion, the BDOS had already been there 
and thus had used up the parameters we 
had given to XMOVE. What we meant for 
an inter-bank move was thus magically 
transformed into an intra-bank move. We 
reverted to calling MOVE and XMOVE 


_directly. This is possible provided that 


the BIOS routines and the calling pro- 
gram’s stack are all in non-banked 
storage. 


The Directory BCB Chain 


Examine Figure 1 (page 91). It shows 
the BCB chain immediately after a cold 
start. The only disk I/O that has been 
done to this point is the load of CCP.COM 
and its load of SHOWBCB.COM. The 
lengthy display of the data BCBs has been 
trimmed to save space. 


The first byte of a BCB is the number 
of the drive for which it holds a sector, 
and FFh indicates an unused buffer. Only 
one BCB is active in each chain. In the 
directory chain you can see that four 
BCBs have been used, but three of them 
have since been discarded. Old BCBs for 


track 2 sectors 1, 2, and 4 can be seen. 
Presumably sector 3 was read as well, but 
its BCB doesn’t show. 


Track 2 sector 4 was read again, and 
its BCB is still active. This BCB probably 
represents the I/O done to open SHOW- 
BCB.COM. Thanks to its directory hash- 
ing table, the BDOS didn’t have to scan 
the directory for SHOWBCB; it was able 
to read the one sector that contained its 
entry. However, it did have to read that 
sector because the residual BCB for the 
same sector had been discarded. 


This seems reasonable on reflection. 
It’s only by reading a directory sector and 
testing its contents against the hash table 
that the BDOS can detect a change of 
disks. If it didn’t make that test, it would 
be as liable to trash a directory as MSDOS 
is. Extra directory I/O is a reasonable 
price to pay to avoid that danger to data 
integrity, so the fact that the BDOS seems 
to toss away its active directory BCBs 
shouldn’t disturb us too much. 


The Data BCB Chain 


Now look at the chain of data BCBs. 
Two have been used, but only one remains 
active. The discarded one probably repre- 
sents the last sector of CCP.COM; track 4 
sector 6 is about the right location for it 


‘INTE RSTE LLAR-DRIVE: i 
sally 


SAVE MONEY! 


Increase your 
computer's productivity 


The INTERSTELLAR DRIVE is a high performance 
data storage subsystem with independent power 
supply, battery backup, and error detection. It has 
256KB to 1 Megabyte of solid state memory integrated 
to perform with your operating system. 


_A SOLID STATE DISK EMULATOR 


Save valuable time! 


5 to 50 times faster 


performance than floppy disks 
and Winchester drives 


PION’S INTERSTELLAR DRIVE is designed for use with a 
family of interfaces and software packages. Currently avail- 
able are interfaces for IBM, S100, TRS80, Apple, SS50, and 
most Z80 uP, and software for most popular operating systems. 
Additional interfaces are continually being developed for the 


most popular computers. 


Basic Price for 256KB unit [includes interface and ee 


$ 1 095. plus tax (where applicable) and shipping 
Visa and Master Card ps of evens 
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PION ,, inc. 


101R Walnut St.,W/atertown, MA 02172 


TRS80 trademark of Tandy Corp. Apple trademark of Apple Computers 
Interstellar Drive trademark of PION, Inc. 


Tel.(617)923-8009 
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The Automatic Ribbon Re-Inker 


Re-ink any type of ribbon (except carbon) for 
less than 5 cents. 


Extremely simple operation. 1) Load cartridge 
or spool. 2) Add ink to reservoir. 3) Start 
motor. 


We have a MAC INKER tor any printer—many 
MAC INKER units support multiple printers. 

Ink contains lubricant for safe dot matrix 

printhead operation. Multicolored inks @mggy 
available. Ask for brochure. Frie ers 


100 Northwest 86th Avenue 
Portland, Oregon 97229 
(503) 297-2321 











Price $54.95 
plus $3.00 S&H 
Prices slightly 
higher for some 
printers. Total 


erp or Dealer inguiries 
vo Te welcome 
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Introducing SPL If you have a computer 
the first multi-mode spooler Get A Second 
for CP/M computers 


If you believed that your computer Computer 
couldn't do better than a single task 
system think again. You can convert FOR & ] 39 


your machine into a dual-task computer 
with SPL, the amazing Spooler program 
developed by Blat R+D. SPL enables you § 
to use hidden capacity available on your 
CP/M computer to print documents and 
run your ordinary programs, all at once. 


While printing, your regular 
programs won't stop 
processing, waiting for the 
printer to finish. SPL will store 
the information to be printed in 
internal or external (disk 
drives) memory until the printer is 
ready to receive the data. Result: 
your programs will run at full speed. 
As SPL can use up to the full 
capacity of your disks for temporary 





® Registered Trademark of Digital Research 


storage, it's much more powerful You could get an equivalent increase 

than hardware spoolers, which are in computing power by spending $1000 

limited to 64k memory or less. to $3000, but SPL is only $ 139, including 
SPL is an advanced product with disk and manual. 

several modes of operation. In addition To order your SPL program call us 


to intercepting the output to the printer, today specifying what disk format you 
SPL can print your existing text files, or require. You can charge it to your VISA 
those that your programs will create from or Master Card if you prefer. 

now on. SPL will even take care of tab Blat Research+Development Corp. 





expansion. As an added bonus, SPL 8016 188th SW, Edm 
needs no installation on most CP/M 2.x Call toll-free Seavinitinae 
computers. In WA call [206] 771-1408 
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on this disk. Of course, CCP.COM occupies — 
3.5 one-kilobyte sectors. Why does only 
one BCB appear? Probably because the 
BIOS’s cold-start code uses a multi-record 
read to load the file. When the BDOS 
knows it will be transferring eight or 
more 128-byte units from adjacent disk 
locations to adjacent storage locations, it 
probably skips allocating a deblocking 
buffer and reads the sector directly into 
storage. The last sector of the file is not 
all used, so a BCB was allocated to hold it 
while the last few records were pulled out 
of it. The one active BCB probably repre- 
sents the only sector of SHOWBCB.COM. 
Examine the addresses in the ““bcb” 
and “‘link’? columns; you can see how the 
BDOS’s LRU algorithm works. BEC3 is 
the last BCB assembled in the BIOS. 
When the system is loaded, it is at the end 
of the chain. Whenever the BDOS needs a 
BCB, it removes the last one from the end 
of the chain and inserts it at the head of 
the chain. In Figure 1, you can see that 
the BCB at BEC3 was moved from tail to 
head, and the same was done to the BCB 
that originally preceded it, BEB4. The 
original chain head, BAA9, has aged two 
positions. We can tell how many BCBs 
the BDOS has used by counting the BCBs 
that precede BAAY. This remains true 
only for 71 uses, when the chain wraps. 


BCB Use for Input 


Our next experiment was to run an 
assembly that did input but no output 
(‘rmac showbcb $lbrzszpz’’). The assem- 
bler had to read a total of 29 sectors: ten 
sectors of SHOWBCB.ASM (twice each), 
and nine sectors in three library files. 
Figure 2 (page 91) shows the data BCBs 
afterward. The only one still active, BE4B, 
represents the load of SHOWBCB.COM. 
The two oldest, BEB4 and BEC3, are left 
over from Figure 1. The six in between 
are the total result of loading RMAC, 
reading the source file twice, and reading 
three libraries. The BCB at BEAS probably 
represents the last sector of RMAC (it, 
like CCP.COM earlier, would have been 
loaded with a multi-record read). That 
leaves five BCBs to account for all 29 
sectors of data. 

Two things stand out in Figure 2. 
First, the BDOS does not use a new BCB 
for every new sector of data it reads. If it 
did, Figure 2 would be 24 BCBs longer 
than it is. Perhaps the BDOS assigns only 
one BCB to each open file (three libraries 
plus the source file twice equals five). 
Perhaps it reuses a BCB whenever its cur- 
rent sector is completely used up and the 
next sector is for the next adjacent record 
of the file. The second scheme would pro- 
duce the same numbers in this case of 
all-sequential I/O, but would allow for 
the accumulation of more BCBs to a 
direct-access file. 

Either way, the result is that for se- 
quential input, the BDOS effectively 
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assigns a single BCB to each open file. 
Sequential data does not accumulate in 
the BCB chain. When a file is used twice 
in succession (as is the source file in an 
assembly), it will be read twice from disk. 
The only effect of the BCB chain is to 
eliminate the second read of the last 
sector. Now we can see why an assembly 


Directory BCB chain... 


runs at essentially the same speed in CP/M 
3 and CP/M 2. 

The second thing that stands out in 
Figure 2 is that what little data was accu- 
mulated has since been discarded. The 
data residual from RMAC’s execution was 
tossed out sometime between the end of 
RMAC and the start of SHOWBCB. The 


beb drive record wflg "00" track sector 


000008 
000008 
000000 
000018 
000000 
000000 
000000 
000000 


BA6D 00 
BA7C Pr 
BA8B FF 
BAQA EF 
BA31 FF 
BA4O EF 
BA4MF EF 
BADE ie 


Data “BCB chain. «. 


drive record 


00 OOOBFO 00 04 

FF OOOOB8 00 00 

FF Q00000 00 00 

FF 000000 00 
000000 

FF 000000 


000000 00 
000000 00 00 


Figure 1. 


BUG Ona Lis». 
drive record 


00 OOOBFO 00 O4 
000C68 00 01 
000C60 00 07 
OOOD08 00 
OOOCEO 00 
OO0O0D30 00 
OO06E8 00 


OOOBFO 00 
0000B8 
000000 
000000 
000000 
000000 
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0002 
0002 
0002 
0002 
0000 
0000 
0000 
0000 


wflg "00" track 


0031 
0004 
0000 


0000 


wflg "O00" track 


0031 
0033 
0033 
0036 
0035 
0036 
001D 
0031 
0004 
0000 
0000 


0004 
0004 
0001 
0002 
0000 
0000 
0000 
0000 


sector 


0003 
0006 
0000 
0000 


sector 


0003 
0008 
0005 
0004 
0005 
0003 
0008 
0003 
0006 
0000 
0000 


buffad bank link 


4000 
4400 
4800 
4C00 
3000 
3400 
3800 
3C00 


buffad bank 


7800 
7COO 
5000 


buffad bank 


5C00 
6400 
6000 
6800 
6C00 
7000 
7400 
7800 
7C00 
5000 


00 
00 
00 
00 
00 
00 
00 
00 


03 
03 


BA7TC 
BA8B 
BAQA 
BA31 
BA4O 
BAYF 
BA5E 
0000 





link 


BE69 
BE5A 
BE78 
BE87 
BE96 
BEA5 
BEB4Y 
BEC3 
BAAY 





culprit had to be the CCP — it was the 
only program to run in that interval. We 
ran CCP.COM under SID to see what it 
would do. 

What it did was issue BDOS request 
98, Free Blocks. This BDOS function is 
supposed to release any disk blocks that 
were allocated to files that were never 
closed. It recovers disk space that might 
otherwise remain inaccessible until the 
disk was logged in again (possibly a long 
time in CP/M 3, since disks are only logged 
in when control-C is pressed). Exactly 
that problem occurs under MSDOS when 
the IBM Pascal compiler aborts, but under 
MSDOS you have to run CHKDSK to re- 
cover the space. 

BDOS function 98 has a laudable 
goal, but it seems to have an unfortunate 
side effect. It not only cleans up the allo- 
cation vector, it also puts FFh into every 
active BCB! We proved that by killing the 
call on function 98 in CCP.COM (it’s at 
location 458h) and re-running the experi- 
ments. With the modified CCP, the BCB 
chain after the assembly had eight active 
entries instead of eight dead ones and 
one live. However, this had little effect 
on performance, since the active entries 
represented only the last sectors of their 
respective files. 


CP/M Software 
WASH 


Easy to use directory maintenance utility 

that replaces a dozen older programs. 

Menu driven for fast directory display, view 

Or print, copy rename, delete. Also multiple 

copy and delete. Much easier to use than | 

the CP/M utilities. ............. $49.95 
NERA 


U 
ERA *.BAS instead of ERA *.BAK can ruin 
your whole day. UNERA to the rescue — it 
recovers all ERAsed files for CP/M 2.2 
Floppy and Hard Disk Systems with 
Standard directories ............ $75.00 
FORMS-3 
Ideal for filing out all kinds of forms. Fea- 
tures field editing for numeric, dates, etc., 
justification, multipages, required entry. 
Can also use a separate data file. $40.00 
SUPERFILE 
Solves your filing problems. Menu driven 
information retrieval system for storing and 
quickly finding information. Features AND, 
OR and NOT in search command. Sort, 
merge and split utilities included. Build data 
base with any CP/M editor. Computer 
Magazine Database 900+ entries included. 
with Demo Data Base & Manual $165 
Manual only(applies to purchase)$50 
Available 8" Single Density, North Star Single and Double | 
Density, most 5%" soft sectored disks. 
ADD $1.50 SHIPPING AND HANDLING 


CALIF. RESIDENTS ADD TAX 


Slliam Associates 


24000 Bessemer Street 
Woodland Hills, CA 91367 


eS (213) 348-4278 = 
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FREE SOFTWARE for the 
KAYPRO 2 or VECTOR3 & 4 


Lots of games, CP/Mt¢t utilities and other programs are in 
public domain. 

Now you can order copies from 90 disks of well-known user 
group on 5 inch disk. 

Copy fee of $10 per disk includes postage. 

Either Kaypro 2 (46 tpi ssdd) format or Vector 3 & 4 (100 tpi 


dsdd) format. 
Other 5 inch formats also available. (Sorry, not for Apple, 
North Star, or Victor 9000.) 


The 90 disk library includes these favorites: 

#3 and #5 EBASIC games and compilier 

#12 PILOT programming. early version 

#21 startrek and other games, requires MBASIC 

#23 STOIC stack language. similiar to FORTH 

#28 simple ALGOL compiler with games 

#37 arithemtic CAI, games, requires CBASIC 

#41 HAM radio programs. requires MBASIC 

#43, #44, and #45 Osborne business, requires CBASIC 

#50 PASCAL compiler written in PASCAL 

#55 or #57 original or extended adventure game 

#60 a 6502 simulator runs on Z80 

#66 HELP for novices on BASIC, CPM, PASCAL. etc. 

#79 or #84 SMODEM37 or MODEM 765, requires MAC 
(No representations implied on any public domain software.) 


Send $10 (check or MO) for each disk, specify format. 
List of 90 disks for $2, or free with order of 3 disks. 


Sheepshead Software™ 
P.O. Box 486 
Boonville, CA 95415 
(707) 463-1833 


VISA Master Card OK No COD No refunds 
+ CP M trademark of Digital Research 
tApple trademark of Apple Computer Co 
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C SCREEN EDITOR 


CSE: A full-screen text editor written in C 
Powerful command set includes cursor control, 
find/replace, block move, file inclusion, and nested 
macro commands 
Installation program allows easy customization for most 
popular terminals 
Available for CP/M-86', MP/M-86', CP/M 2.2', 
MS-DOS?, and IBM PC3 
Requires 64K CP/M-86 or equivalent MP/M-86; 56K 
CP/M 2.2; 64K MS-DOS; 64K IBM PC 
Includes object code, C source code, and manual 
Available in 8” SSSD format for CP/M-86, MP/M-86, 
CP/M 2.2, MS-DOS 

e $60.00, including UPS; additional versions $20.00 each 


8080 SIMULATOR 


SIMS80: An 8080 simulator for the 8086/8088 
Run CP/M object code (.COM files) on any CP/M-86 
or MP/M-86 system : ASM, DDT, dBase II*, C/80, 
MBASIC, etc. 
Retain applications software when upgrading from 
CP/M to CP/M-86 
Develop and debug CP/M software on CP/M-86 
8K overhead, TPA can be 61K 
1/3 to 1/10 as fast as a 5 Mhz 8085 (not recommended 
for highly interactive programs such as Wordstar, or for 
very large, slow interpreted BASIC programs) 
Includes object code, ASM-86 source code, and manual 
Available in 8” SSSD format for CP/M-86, MP/M-86 

e $50.00, including UPS 


Both CSE and SIM80 for $90.00 


Northwest 
Microsystem 
Design 


P.O. Box 10853 « Eugene, OR 97401 ¢ (503) 484-7129 


itm, Digital Research; 2tm, Microsoft; 3tm, IBM; ‘tm, Ashton-Tate; 
8 . 
stm, Micropro 
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CBASIC* USERS 


Now it is possible to recover a 
“BAS” from an “.INT” file. Send me 
aSSSD 8” CP/M * diskwitha“.INT” 
file on it: | will return it with the 
reconstructed “.BAS” file added. 
(Multiple “INT” files on a disk are 
allowed, not to exceed 48K per 
disk.) 


Cost is $40. per “.INT” file. Dis- 
count of 10% for 5 to 9, 15% for 10 
or more, “.INT” files shipped as a 
single order. 


MC/VISA HONORED @ N.J. RESIDENTS ADD 6% 


PETER INGERMAN 
40 NEEDLEPOINT LANE 
WILLINGBORO, N.J. 08046 


* CBASIC and CP/M are trademarks of 
Digital Research, Inc. 
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© Basic o 
Compiler 
For CP/ M’ 


Only $99. 


Assembler and link editor included. 
Requires CP/M® 2.0+ and 32k+ 
3740 8" or Apple® 5” 16-sector 

disk formats only. 


Send your check or money order to: 


JV Software 
P.O. Box 684 
Newton, MA 02162 


Mass. shipments add 5% sales tax 
Free brochure available 


Manual only — $15 Refundable with 
software purchase. 


CP/M is a Trademark of Digital Research, Inc 
Apple is a Trademark of Apple Computer, Inc 
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All CPMUG* Public Domain 
Software available in 5-% inch 
format for: NEC-PC-8000, 
EAGLE-II], APPLE, AND 
NORTHSTAR HORIZON. 


$10.00 per volume includes postage. 
$10.00 for catalog listing on diskette. 
$12.00 for Apple volumes. 
CHECKS/MONEY ORDERS AND 
MASTERCARD/VISA ACCEPTED. 
California Residents Add Sales Tax 


yatos 


Data 
Logics 


3722 E. BROADWAY 
LONG BEACH, CA 90803 
(213) 438-3077 


*Trademark CP/M** Users Group 
**Trademark Digital Research. Inc. 
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NEW! 


FLOAT FORTH 


OPERATING SYSTEM 
for Apple II” with: 
Editor Debugger 
Assembler Filer/DBMS 
Relocatable Dictionaries 


FLOAT FORTH 


LANGUAGE 
includes: 


Floating Point Vocabulary Hi-Res Graphics | 
Multiple-Precision Integers Matrix Operations 
Telecommunications Support 
plus 


FLOAT FORTH 


CALCULATOR MODE 


A full-function RPN programmable 
calculator with: 


Complex Numbers Least-Squares Solution 
Hi-Res Data Plotter Statistics 
Linear Equation Solver Integration and 
Differentiation 
Algebraic Expression Evaluator Option 


PRICE $50 


COASTSIDE ELECTRONICS 
P.O. Box 947 e Montara, CA 94037 
(415) 728-5845 


Apple I! is a trademark of Apple Computer Co 


So ee 
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CROSS DEVELOPMENT TOOLS 
FOR CPM 


PROGRAMMER WORK BENCH TOOL KITS 


for use on Z80 based system with CPM 2.2 
or equivalent operating system are now 
available from: HSC INC. 


Each tool kit include: 
CROSS ASSEMBLER, OBJECT FILE LIBRARIAN 
LOCATE UTILITY, SOURCE FILE LIBRARIAN 
LINK UTILITY, CROSS REFERENCE UTILITY 


Tool kits Suppor a the following micro— 
ila 


processors are available 
ZILOG Z80 Z8001 Z8002 
INTEL 8080 8085 8086 8088 
MOTOROLA MC 68000 


Each tool kit costs $350.00 Send today for 


FREE Sagi tek listing these and other 
software products available from: 


HSC INC. 
BOX 86 
HERKIMER, NEW YORK 


(315) 866 - 2311 


13350 


CPM is a trademark of DIGITAL RESEARCH INC 
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WRITE- £0r 


Seionlific & Enyinecring 


Catalog. tor 


TRS? OD. Lt 
TRS 60. "Ti 
LBM) PC or 
Apple 1 


PABSoft a : 


PAB SOFTWARE. INC 
P.O. Box 15397 
Ft. Wayne, Indiana 46885 


PABSoft is not in any way 
connected with any of the 
above computer manufacturers. 
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BRIDGE GRAPHICS 


PLOTPAK™ is a complete plotting 
library that runs under FORTRAN-80 
and performs a variety of functions: 


windowing, linear print arrays, automatic polygon 
drawing, annotations, plotting symbol/line selection, 
labeling, coordinate conversions. 





PLOTPAK can drive a screen and plotter simul- 
taneously and includes your choice of the following 


drivers: 
SCREENS 
® MicroAngelo MA 512 
e ADM + Retrographics 
e TEK 4010 Compatible Terminals 
PLOTTERS 


e Houston Instruments DMP-4 
e H.-P. Plotters 7225B & 7470 
e Radio Shack Printer/Plotter 


PLOTPAK (.REL file) two drivers....... $275 
PLOTPAK (source code) two drivers ... .$365 


yr NBRIDGeE 


Computer Company 
DIVISION OF SEA DATA CORPORATION 
ONE BRIDGE ST., NEWTON, MA 02158 
PHONE (617) 244-8190 


Lifetime certification. 

Hard holes for relia- 

bility. Sold in boxes 
of 10. 


Single Side 


Single Den. 
51/4” * 


8” $29.95 


*Specify soft sector or 10 or 16 hard sectors. 


Single Side 
Double Den. 


$26.95 
34.95 


VISA and MASTERCARD accepted. California residents 
add 6% sales tax. Telephone orders (213) 661-2031. 


Please add $2 per item shipping. 


(D 


CALIFORNIA DIGITAL ENGINEERING 
PO. BOX 526 * HOLLYWOOD, CA 90028 





Double Side 
Double Den. 


$31.95 
42.9 


Versatile modular 
disk filing system 
stacks vertically 
or horizontally. 
Each case holds 
10 disks. 

51/4” case $6.95 
8” case $7.95 
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BCB Use for Output 


We checked BCB use following an 
assembly that produced PRN, REL, and 
SYM files. We expected to see BCBs for 
at least the last sector of each output file. 
We did not. We don’t know what space 
the BDOS is using to block the physical 
sectors of output files, but it isn’t space 
taken from the BCB chain. 

To make sure that we weren’t seeing 
the result of some clever use of multi- 
record writes in RMAC, werana test using 
the Magic Wand PRINT program with 
disk output. This program has abysmal 
disk I/O logic; it alternates reading and 
writing of 128-byte units. Under CP/M 2, 
with a BIOS that had only a single sector 
buffer, PRINT caused a seek, read, seek, 
read, write sequence for every 128 bytes 
of throughput. Under our 2.2 BIOS with 
separate read and write sector buffers, 
it ran better. In fact, it ran better than 
under CP/M 3, where PRINT takes about 
10% longer than under our improved 2.2 
BIOS! And its output didn’t leave any 
evidence in the BCB chain. 

Here again, it seems that the CP/M 3 
BDOS is throwing away an opportunity 
to speed up processing. All output goes 
straight to disk; if it then becomes input, 
it has to be read back again. The file that 
one program writes, another program is 
going to read. The editor’s output is input 


to RMAC; RMAC’s REL file is input to 
LINK; and its PRN file is input to TYPE 
or PIP. It’s all very well to speed up direct 
access, but we should keep in mind that 
(1) the majority of CP/M commands read 
files sequentially, and (2) commands are 
used in sequence, with the output of one 
feeding the input of the next. That situa- 
tion is exactly right for the LRU algorithm, 
but the BDOS isn’t capitalizing on it. 
Well, almost exactly right. If the 
BDOS buffered all the sectors it read, and 
also buffered all the sectors it wrote, 
some problems would arise. If an output 
file was larger than the total buffer pool, 
its last few sectors would displace its first 
few. The next command’s input of the 
first few sectors of the file would kick 
out the next few, and so on. A ripple 
would run down the BCB chain, causing 
each saved sector to be discarded just a 
few sectors before it was needed as input. 
But the BDOS does not buffer all the 
sectors it reads. If it kept the present 
logic for sequential reading but buffered 
all output sectors, then the ripple would 
never develop. One BCB would be used to 
read the leading sectors that had been dis- 
placed by later output. Eventually the 
input requests would work around to the 
sectors that had not been displaced. From 
there to the end of the file, the second 
command would operate at RAM speeds. 





Quest Research, Inc. 


303 Williams Ave. 
Huntsville, AL 35801 
(205) 533-9405 


X f 
\V 
ay 


Break Through the 
64K Barrier! 


Make full use of the memory you have by 
programming with the FORTH-32 language. A 
Complete Development System! F loating Point 


and other Extensions. 
Call toll-free or 
contact a participat- 
ing Computerland 
store. 


Available for DOS 1.0, 1.1, 2.0 
FORTH-32 and the Quest logo 
are trademarks of 

Quest Research, Inc. 


800-558-8088 
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Summary 


A sophisticated algorithm for sector 
buffering under CP/M would make special 
provision for COM files, encouraging the 
retention of commands in storage. It 
would probably use separate chains of 
BCBs for input and output, with some 
kind of heuristic to shuffle buffers from 
one chain to the other on the fly. In fact, 
CP/M 3 has enough resources to make it 
quite interesting as a case study in perfor- 
mance optimization. It could be the grist 
for a Ph.D. thesis in Comp. Sci., in fact. 

But the existing algorithm is not 
sophisticated and, while it may be effec- 
tive for direct access, it is definitely not 
optimal for the kind of sequential access 
that is the bread and butter of any CP/M 
system. Until it is improved (CP/M 3.27), 
we recommend that you not spend a lot 
of money on RAM cards when moving to 
CP/M Plus. One 48Kb system bank should 
provide as many sector buffers as the 
BDOS can use effectively. 


DB 


Reader Ballot 
Vote for your favorite feature/article. 
Circle Reader Service No. 227 
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Ed Mitchell’s 


AUGUSTA" 


Augusta is a new “subset” programming lan- 
guage based on the U.S. DOD’s Ada® language. 
Ada-like syntax includes IF-THEN-ELSE/ELSE- 
IF, WHILE, FOR, LOOP, CASE, BEGIN-END, 
arrays, local variables, fully recursive proce- 
dures and functions to any size, and full I/O, 
including random access disk files, printer and 
serial port access and much more! This fast, 
one-pass compiler produces efficient “p-code” 
files. Executes much faster than compiled 
CBASIC. 


Available now for Z80-based CP/M® systems. 
Includes compiler, compiler source, powerful 
debug utility, p-code interpreter and disassem- 
bler, and a comprehensive reference guide. 


Elegance 


Power 


Speed 





Laboratory Microsystems 
4147 Beethoven Street 
Los Angeles, CA 90066 
(213) 306-7412 Box 287 
Yates Center, KS 66783 


€ Users’ Group 
Supporting All C Users 


Augusta is a trademark of Computer Linguistics 

Ada is a registered trademark of the U.S. Dept. of Defense 

NOTE: Augusta does not purport to be a compiler for the complete Ada 
definition. 

CP/M is a registered trademark of Digital Research, Inc. 
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_SAGE™ TECHNICAL BRIEFING 


No computer can go faster than its 
memory. 

Even the lightning-fast 68000 proces- 
sor can be slowed to a snail’s pace by a 
sluggish main memory design. 

For that reason, we designed the 
memory for 16-bit SAGE computers to 
keep pace with the 68000. It’s a close- 
coupled, straightforward design that 
lets the processor run full bore at 2 
million instructions a second. 

Anything less simply wouldn't be 
State of the art. 


Simple Isn't Always 
Easy. 

To make a mem- 
ory simple is simple. 

But to makea | 
Simple memory fast 
is difficult. 

And to incorporate it into a 
computer that doesn't cost a fortune is 
next to impossible. That is, unless some 
highly-creative circuit solutions can be 
found. 

And that’s precisely how the totally 
unique SAGE memory wasborn. — 


One MBYTE Of 64KBYTE Devices. 


In keeping with the no-compromise 
spirit of SAGE memory design, we 
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naturally use only 64K, dynamic 150- 
nanosecond memories. SAGE IV ™com- 
puters can be equipped with a 
megabyte of this type of memory. 

And you Can specify as few as one 
Or as Many as four built-in Winchesters, 
plus floppy drive. 

What's more, thanks to its exclusive 
memory design, your SAGE computer 
can take data as fast as its floppy disk 











can dish it out. In fact, with 
no need for skewing or inter- 
leaving, the SAGE Computer actu- 
ally lets its floppy run as fast as 
Wéinchesters do on some machines. 
So when you select a computer for 
serious development or serious busi- 
ness, remember the importance of 
memory. 
For more information and the name 
of your nearest SAGE dealer, call us 
today. 


Sage Computer Technology, Corpo- 
rate Office, 4905 Energy Way, Reno, 
Nevada 89502. Phone (702) 322-6868. 
TWX: 910-395-6073/SAGE RNO 


Eastern United States 

Sage Computer Technology, 
15 New England Executive Park 
Suite 120, Burlington, MA 01803 
(617) 229-6868 


In UK 
TDILTD, 29 Alma Vale Road, 
Clifton, Bristol BS8-2HL 
Tel: (0272) 742796 
Tx: 444 653 Advice G 


_ In Germany 

: MM Computer, 

5 GMDH, Hallwanger Str. 
_ 59,8210 Prien 

) Tel: 0805 1/3074 

Tx: 525 400 mmco-d 








p-System standard, supporting Pascal, 
FORTRAN 77, BASIC and 68000 Micro Assembler. 
CP/M-68K, Hyper-Forth, Modula 2 optional. 
SAGE and SAGE IV are trademarks of 
SAGE Computer Technology. 
© 1983 SAGE Computer Technology all rights 
reserved. 
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Which do you think is the 
more sophisticated computer? 





The big differences between the Epson HX-20 Notebook can get them at all. 

Computer (on the left) and the Apple Computer (on the All of which makes the take-it-anywhere HX-20 perfect 
right) are: 1) the HX-20 doesn’t need a power cord, 2) the for business executives, salespeople, students, kids — 
HX-20 weighs only about four pounds, and 3) the HX-20 anyone who’s looking for an affordable, practical way into 
costs a lot less money. computing. 

The Epson HX-20 Notebook Computer has a full-size Portable. Powerful. Affordable. Sophisticated. The extra- 
keyboard, a built-in LCD screen, a built-in printer, 48K of ordinary HX-20 Notebook 
combined RAM and ROM memory, and an internal power Computer. Find out just how 
supply that will keep it running for over 50 hours. So you can extraordinary. Call (800) 
do computing and word processing virtually anyplace you 421-5426, in California (213) 
happen to be. Whereas, with the Apple Computer, you can 539-9140 for your nearest 
only go as far as an extension cord will take you. Epson computer dealer. 


And on the HX-20, you get communications interfaces, 


upper and lower case letters, five program areas, a full 68 
keys including an integrated numeric key pad, an internal 
clock/calendar, and the screen and printer. Standard. On 
EPSON AMERICA, INC. 


the Apple, you pay something extra for each feature — if you 
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